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SUMMARY 


A  second-generation,  microcomputer-controlled  flow-through  anodic  stripping 
voltammetry  (ASV)  instrument  has  been  developed  by  the  Naval  Ocean  Systems  Center 
(NOSC).  The  first-generation,  non-computerized  instrument  was  originally  developed  to 
provide  near-real-time  analysis  of  trace  metals  in  seawater.  Four  years’  experience  with  this 
system  in  the  coastal  waters  of  Florida,  Peru,  and  California  indicated  the  need  for  added 
instrumental  flexibility  to  permit  changes  in  methodologies  and  to  deal  with  the  very  large 
amount  of  raw  data  generated.  To  achieve  these  goals,  a  new  system  designed  around  a 
Motorola  6800  microcomputer  was  developed.  Two  major  system  software  routines  were 
written  for  this  application:  an  instrument  control  program  and  a  computing  routine.  The 
latter  performs  the  necessary  calculations  to  yield  actual  concentration  values  for  each  metal 
studied.  Thus  equipped,  the  system  has  improved  the  amount  and  accuracy  of  the  data 
obtained  while  decreasing  routine  manual  operations.  Moreover,  with  the  substitution  of  a 
simulator  for  the  wet-chemistry  electromechanical  unit,  the  system  can  serve  as  a  tool  for 
developing  new  software  and  hardware  without  requiring  investment  in  new,  unproven 
equipment.  The  system  can  be  expanded  or  modified  within  the  constraints  of  size,  weight, 
and  available  memory. 


BACKGROUND 

ASV  is  a  form  of  polarography  that  has  produced  new  interest  in  this  field  in  recent 
years  (Refs.  1-3).  It  is  a  technique  that  allows  relatively  fast  measurements,  to  be  made  for 
various  metals  in  different  solutions  without  the  need  for  elaborate  preparations  or  precon¬ 
centration  procedures.  The  technique's  sensitivity  is  outstanding,  having  approached  the 
parts-per-trillion  level  for  several  metals. 

From  the  standpoint  of  field  measurements,  the  main  metals  of  interest  are  copper, 
lead,  cadmium,  and  zinc.  Using  present  equipment  and  techniques,  it  is  possible  to  make 
simultaneous  measurements  of  any  three  of  these  four  metals  directly  in  seawater  with  no 
pretreatment.  It  is  this  feature  which  has  made  ASV  such  an  attractive  tool  for  research 
and  routine  monitoring  operations. 

A  generalized  ASV  instrument  consists  of  (1)  a  potentiostat  that  controls  the 
potential  on  the  working  electrode  during  electrolysis;  (2)  a  cell  arrangement  to  hold  the 
sample  and  electrodes;  and  (3)  some  type  of  data  display  device,  generally  an  X-Y  recorder. 
Figure  1  illustrates  a  typical  commercial  system.  Although  there  are  several  types  of 
materials  commonly  used  for  the  working  electrode,  this  discussion  will  be  limited  to  those 
composed  of  solid,  glassy  carbon.  This  electrode  is  most  frequently  rod-shaped,  and  either 
a  short  section  of  the  rod  or  simply  the  face  of  one  end  is  used  as  the  active  electrode 
surface.  For  either  case,  the  surface  to  be  use  must  be  highly  polished. 

A  generalized  procedure  for  an  ASV  measurement  of  Cu,  Pb  and  Cd  begins  with  the 
application  of  a  negative  potential  (vs  SCE  reference  electrode)  to  the  working  electrode. 
The  working  electrode  is  in  contact  with  the  sample  solution,  to  which  a  dilute  mercury 
solution  has  been  added.  The  applied  potential  causes  a  thin  mercury  metal  film  to  be 
plated  onto  the  electrode  surface,  and  subsequently  the  metal  ions  in  the  sample  are  reduced 
and  plated  into  the  mercury  film  for  several  minutes.  It  is  this  electrolytic  concentration 
which  gives  the  technique  its  great  sensitivity.  After  an  appropriate  time  interval,  the 
electrode  is  “scanned”  by  incrementing  the  potential  in  the  positive  direction.  As  the 


Figure  1 .  Commercially  available  system  for  ASV. 


electrode  voltage  becomes  less  negative,  the  individual  metals  oxidize  out  of  the  mercury 
film,  causing  a  current  to  flow.  The  current  can  be  detected  and  displayed  as  a  peak  on  the 
strip  chart  recorder  (Fig.  2).  Since  each  metal  oxidizes  out  of  the  film  at  its  own  character¬ 
istic  potential,  it  is  possible  to  effect  excellent  separations  in  the  multicomponent  samples, 
with  quantification  being  made  by  the  technique  of  standard  additions  (Ref.  4). 

There  are  many  variations  in  both  the  methodology  and  the  equipment  currently 
used  for  ASV.  Recently,  new  equipment  incorporating  microprocessors  to  control  instru¬ 
ment  parameters  and  aid  in  the  display  of  results  has  come  on  the  market.  The  Princeton 
Applied  Research  Model  374-1  is  one  example.  Other  instruments  utilizing  hard-wired 
programming  designed  for  system  flexibility  have  also  been  introduced  recently,  an  exam¬ 
ple  being  Environmental  Science  Association’s  Model  3040.  However,  there  is  one  trait 
common  to  all  systems  that  are  presently  available  commercially.  They  are  basically 
laboratory  instruments  geared  to  measuring  individual  samples. 

For  the  researcher  interested  in  real-time  events  (biological  phenomena,  pollution 
surveys,  etc.),  such  equipment  is  of  little  value,  since  the  need  to  collect  and  process  indi¬ 
vidual  samples  inherently  precludes  real-time  analysis.  An  additional  problem,  which 
becomes  extremely  significant  at  the  parts-per-billion  (ppb)  level,  is  sample  contamination 
resulting  from  human  intervention  in  the  sample  acquisition  and  during  secondary  handling 
at  the  man-instrument  interface. 

To  overcome  these  problems,  a  flow-through  ASV  instrument  system  was  developed 
at  NOSC  that  provides  near-real-time  capability  and  requires  no  operator  intervention  in 
sampling  (Ref.  6).  As  Fig.  3  shows,  the  system  components  are  housed  in  four  containers 
designed  for  field  use.  The  potentiostat,  the  hard-wired  programming  unit,  and  the  strip 
chart  recorder  are  packaged  in  individual  boxes,  while  the  fourth  box  contains  the  chemical, 
electromechanical  cell.  The  system  can  run  unattended  for  periods  of  up  to  48  hours,  but 
suffers  from  lack  of  hardware  flexibility.  Thus,  modification  or  expansion  of  the  system  is 
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Figure  3.  Automated  real-time  chemical  analysis  equipment. 


very  difficult.  This  particular  instrument  has  been  in  service  for  approximately  4  years  and 
was  used  in  the  coastal  waters  of  Florida,  Peru,  and  California. 

The  type  of  information  provided  by  the  flow-through  instrument  may  be  seen  in 
Fig.  4.  This  figure  shows  the  results  of  a  5-day,  continuous  operation  conducted  to  measure 
zinc  levels  at  a  stationary  point  in  San  Diego  Bay.  The  lower  curves,  consisting  of  358  indi¬ 
vidual  measurements,  represent  the  raw  data  of  relative  peak  current  vs  time;  the  upper  trace 
is  the  processed  data,  giving  the  actual  Zn  concentrations  in  ppb  vs  time.  It  can  be  seen  from 
these  data  that  tidal  fluctuations  have  a  profound  influence  on  the  zinc  concentration  at  any 
given  moment  and  consequently  could  lead  an  investigator  to  draw  erroneous  conclusions 
about  the  zinc  content  of  the  bay  if  sampling  had  occurred  at  more  widely  spaced  intervals. 

In  principle,  this  instrument  operates  like  the  general  ASV  instrument  described 
earlier.  Functionally,  however,  the  instrument  is  unique  and  represents  a  significant  advance¬ 
ment  in  the  state  of  the  art  of  trace-metal  investigations  in  the  field. 

The  major  innovations  consisted  of  the  development  of  the  wax-impregnated  tubular 
graphite  electrode  (Ref.  5)  (which  has  recently  been  supplanted  by  the  flow-through  carbon 
disk  electrode)  and  the  multielement  tubular  reference  electrode  (Ref.  6).  Both  have  been 
patented  by  NOSC.  The  wax-impregnated  tubular  graphite  electrode  consists  simply  of  a 
1/4-in.  high-purity  graphite  rod  with  a  1/8-in.  hole  drilled  through  the  center.  Before  use, 
the  graphite  tube  is  vacuum-impregnated  with  paraffin,  and  the  inner  bore  is  sanded  and 
polished  to  a  high  gloss  (Fig.  5).  A  newly  developed  sensor,  the  carbon  disk  electrode 
(Fig.  5),  consists  of  a  Teflon  holder  that  can  accommodate  two  glassy  carbon  or  LTI  (low- 
temperature  isotropic)  carbon  disks.  Each  disk  is  approximately  5/8  in.  in  diameter  and 
1/16  in.  thick.  As  with  the  tubular  graphite  electrode,  electrical  contact  with  the  disks  is 
made  by  a  Pt  wire  lead  pressed  against  the  surface.  The  multielement  reference  electrode 
(Fig.  6)  incorporates  an  Ag/AgCl  element  and  a  platinum  element  within  the  same  tubular 


instrument.  Upper  figure:  Tidal  fluctuations  of  Zn  concentrations  in  Sen  Diego  Bay  during 
for  Zn  in  seawater  and  seawater  plus  standard  addition. 
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Figure  5.  Working  electrodes  for  flow-through  instrument. 
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Figure  6.  Reference  electrode  for  flow-through  instrument. 
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electrode.  Isolating  the  Ag/AgCl  element  from  the  sample  stream  with  a  salt  bridge  has 
eliminated  the  problem  of  Ag+  ion  contamination. 

The  initial  success  of  the  flow-through  instrument  prompted  the  design  and  con¬ 
struction  of  a  new  version  utilizing  a  microcomputer.  The  decision  to  use  a  microcomputer 
was  based  on  experience  with  the  previous  instrument,  which  clearly  showed  the  great  need 
for  flexibility  in  such  a  system  in  order  to  cope  with  various  environments  in  which  the 
instrument  was  used  as  well  as  to  take  advantage  of  new  analytic  methodologies  that  might 
become  available.  Also,  as  the  system  evolved  and  more  equipment  was  added,  such  as  pH 
meters,  specific  ion  meters,  and  fluorometers,  the  amount  of  raw  data  generated  became 
unwieldy,  requiring  months  of  processing  following  a  sea  cruise. 

The  use  of  a  microcomputer  as  both  system  controller  and  data  manipulator  facili¬ 
tated  data  handling  and  increased  flexibility.  The  microcomputer  permits  a  great  deal  of 
latitude  in  system  hardware  configuration.  The  instrument  is  now  able  to  incorporate 
ancillary  instruments  and  coordinate  the  different  functions  of  the  total  system.  Because 
programs  can  be  easily  changed,  modified,  or  updated,  the  instrument  hardware  package 
can  evolve  fresh  capabilities  as  new  equipment,  sensors,  or  techniques  are  developed.  An 
example  of  such  a  modification  would  be  the  addition  of  an  auxiliary  reservoir  and  associ¬ 
ated  valves  to  make  it  possible  to  alter  the  medium  present  in  the  electrodes  during  the 
scanning  cycle.  This  procedure  for  stripping  or  scanning  into  a  different  electrolyte  permits 
analysis  of  metals  other  than  Cu,  Pb,  Cd,  and  Zn.  For  example,  by  stripping  into  a  HC1 04 
solution,  the  instrument  can  be  used  for  the  detection  of  mercury  in  seawater  (Ref.  7). 

A  further  benefit  derived  from  use  of  a  microcomputer  is  the  powerful  data  process¬ 
ing  capability  of  the  instrument.  Thus,  it  is  now  possible  to  achieve  real-time  data  reduction, 
permitting  parameter  adjustments  to  the  system  based  on  the  processed  data  displayed. 

HARDWARE 

To  facilitate  alterations  to  the  system,  the  microcomputer  section  in  the  instrument 
has  been  made  readily  accessible  to  the  user.  Thus,  there  are  two  major  functional  modes  of 
operation:  the  dedicated  ASV  instrument  system,  with  its  programs  on  EPROMS  (erasable 
programmable  read-only  memories),  and  an  accessible,  independent  microcomputer.  The 
current  electronic  configuration  (Figs.  7  and  8)  utilizes  a  Motorola  6800  microcomputer 
with  16K  words  of  RAM  (random-access  memory)  and  sockets  for  32K  words  of  EPROMS. 
The  control  functions  are  implemented  through  eight  peripheral  interface  adaptors  with  a 
total  of  128  I/O  lines,  which  can  be  programmed  as  inputs  or  outputs,  and  32  interrupt 
lines,  half  of  which  can  be  programmed  as  inputs  or  outputs.  Interfacing  to  high-current 
components  such  as  motors  and  solenoids  is  effected  through  solid  state  relays  and  tran¬ 
sistor  drivers.  Two  independent  clocks  are  available.  One  is  used  for  time  of  day  as  well  as 
some  timing  sequences,  while  the  other  is  a  digital-panel-meter  elapsed  timer  that  can  be 
programmed  to  display  any  desired  number  of  seconds  and  countdown,  giving  an  output 
pulse  as  the  zero  time  indication.  The  elapsed  time  provides  the  operator  with  a  visual 
countdown,  allowing  him  to  monitor  the  time  remaining  during  any  cycle  of  a  sequence  as 
well  as  signalling  the  computer  when  the  timing  is  complete.  Data  input  to  the  computer  is 
via  a  16-key  keyboard.  Experimental  parameters,  such  as  cycle  times  and  voltage  values,  are 
input  in  decimal  form  and  converted  to  BCD  (binary  coded  decimal)  and  binary  formats  for 
machine  use.  Computed  results  are  presented  on  a  40-column  alphanumeric  printer,  while 
the  raw  data  is  printed  on  a  5-  or  1 0-in.  strip  chart  recorder.  See  Appendix  B  for  complete 
system  schematics. 
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The  chemical  cell,  as  shown  in  Fig.  9,  consists  of  five  custom  Teflon  solenoid  valves, 
sample  and  mercury  reservoirs,  pumps,  and  the  necessary  plumbing.  Fig.  10  is  a  diagram¬ 
matic  representation  of  the  chemical  package.  It  illustrates  the  interconnections  between 
the  valves,  pumps  and  reservoirs.  Fig.  1 0  should  be  used  for  reference  in  the  following 
example  of  a  single  analysis  sequence.  The  sequence  begins  by  switching  valves  1  and  2  to 
the  A  site  and  activating  pump  number  1 ,  causing  the  mercury  solution  to  be  circulated 
through  the  electrodes. 

A  negative  potential  (vs  the  reference)  is  now  applied  to  the  carbon  working  elec¬ 
trode  for  approximately  6  s,  causing  a  thin  film  of  mercury  to  be  plated  on  the  carbon 
electrode's  surface.  At  the  end  of  this  time,  valves  1  and  2  are  switched  to  the  B  side  and 
the  sample  is  now  pumped  through  the  electrodes.  The  sample  may  either  be  recirculated 
or  discarded,  depending  on  the  setting  of  valve  3.  In  this  example,  the  sample  is  discarded 
after  making  one  pass  through  the  electrodes.  The  potential  applied  previously  to  the 
mercury  solution  is  maintained,  and  the  1 -liter  sample  is  plated  for  4  min.  When  the  sam¬ 
pling  is  completed,  pump  1  deactivates,  and  the  potential  scan  of  the  electrode  begins.  The 
peak  current  data  collected  at  this  time  is  stored  in  memory  and  is  processed  during  the  next 
sequence.  Concurrently,  the  sample  reservoir  is  flushed  and  refilled  with  a  fresh  sample. 

At  the  conclusion  of  the  scanning  cycle,  acid  or  standard  may  be  added  to  the  sample  if 
required.  Finally  pump  1  is  reactivated,  valves  1  and  2  are  switched  to  the  A  side,  and  the 
entire  sequence  is  repeated  following  a  delay  to  purge  oxygen  from  the  new  sample. 

Although  this  is  a  very  brief  description  of  the  actual  analysis  procedure,  the  impor¬ 
tant  point  to  consider  is  the  flow-through  nature  of  the  electrodes  and  the  relatively  simple 
plumbing  needed  to  automatically  control  the  analysis.  This  plumbing  can  be  altered  or 
extended  to  provide  more  capability,  such  as  the  addition  of  auxiliary  reservoirs,  as  indi¬ 
cated  in  Fig.  1 0,  should  the  need  arise. 
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Figure  9.  Chemical  cell  for  new  flow-through  ASV  system. 
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SOFTWARE 


The  software  developed  for  the  microcomputer  consists  of  two  major  system 
routines.  The  first  is  the  controlling  program  for  the  ASV  instrumentation.  This  program 
walks  the  operator  through  the  initialization  of  the  system  by  the  use  of  the  interactive 
questions  and  answers.  The  current  program  asks  28  questions  covering  all  system  para¬ 
meter  settings  as  well  as  the  different  operating  mode  options.  Any  of  these  inputs  may  be 
changed  by  the  operator  at  any  time  during  system  operation.  Once  the  instrument  has 
been  initialized,  the  start  command  is  given  by  pushing  the  “GO”  button  and  the  analyses 
will  proceed  without  further  operator  intervention.  To  allow  system  monitoring,  critical 
parameters  such  as  motor  status,  valve  status,  cycle  status,  and  electrode  voltage,  which 
could  affect  an  analysis,  are  continually  displayed  on  the  front  panel  via  LEDs  or  digital 
panel  meters. 

The  second  major  system  program  is  the  computing  routine.  This  program  operates 
on  the  stored  digitized  data,  calculates  the  actual  metal  concentrations  in  ppb,  and  prints 
the  results  along  with  sample  number,  date,  and  sample  acquisition  time  on  the  40-column 
printer.  The  program  operates  on  the  digitized  data  generated  during  the  potential  scan. 

It  automatically  locates  the  current  peaks  for  each  metal  and  determines  the  validity  of 
each  pedk  by  comparison  with  the  programmed  voltage  range.  The  ranges  are  entered  by 
the  operator  during  initialization  but  can  be  changed  at  any  time.  Once  the  peaks  have  been 
located,  their  areas  are  calculated  by  the  trapezoid  rule  for  stepwise  integration.  The  area 
values  are  now  stored  until  the  areas  of  the  sample  plus  standard  have  also  been  calculated. 

When  the  areas  for  both  the  samples  and  the  sample  plus  standard  have  been  deter¬ 
mined,  the  program  calculates  the  actual  metal  ion  concentration  by  means  of  the  following 
equation: 


Where 

Cu  =  Concentration  of  unknown  metal  ion  in  ppb 

Cs  =  Concentration  of  standard  in  ppb 

Ay  =  Peak  area  for  metal  ion 

Ajy  =  Peak  area  for  metal  ion  +  standard  addition 

The  results  are  then  printed  and  the  memory  purged  for  the  next  set  of  data.  A  sample  of 
the  printout  is  shown  in  Fig.  1 1 .  A  complete  listing  of  all  software  is  found  in  Appendix  A. 

As  noted,  the  system’s  microcomputer  module  is  accessible  to  the  investigator  and 
can  be  used  for  further  program  development.  Provisions  exist  to  allow  the  attachment  of  a 
CRT  terminal  and  a  dual  floppy-disk  mass-storage  unit.  When  used  in  this  fashion  and  with 
substitution  of  a  simulator  in  place  of  the  wet-chemistry  electromechanical  unit,  the  system 
becomes  a  powerful  development  tool,  enabling  new  software  and  hardware  designs  to  be 
developed  and  evaluated  (including  I/O  simulation)  without  the  need  to  invest  in  new  equip¬ 
ment  before  a  design  is  proven.  The  simulator  also  doubles  as  a  system  test  and  calibration 
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ENTER  YEAR 

TEAR  =  1979. 

ENTER  JULIAN  DATE 

JULIAN  BATE  =  19#. 

SET  REAL-TIME  CLOCK  TO  CURREMT  TIME: 
THEM  PUSH  *60' 


xxx  SELECT  PROGRAM  MODE  *** 


ENTER  INITIAL  POTENTIAL 

INITIAL  POTENTIAL  =  -1.2 
ENTER  FINAL  POTENTIAL 

FINAL  POTENTIAL  s  -  .  12 


xxxxxxxxxxxxxx 
X  VARIABLE  PARAMETER  MODE  x 
xxxxxxxxxxxxxx 


x  ENTER  THE  FOLLOWING  DATA  x 

ENTER  HG  PLATTING  TIME  (MINISEC) 

HG  PLATTING  TIME  (HINtSCC)  =  7. 

ENTER  SAMPLE  PLATE  TIHE(MINtSEC) 

SAMPLE  PLATE  TIME(HINtSEE)  =  43#. 

ENTER  VALVE  DELAY 1  (SEC) 

VALVE  DELAY  1  (SEE)  =  2. 

ENTER  VALUE  DELAY2  (SEC) 

VALVE  DELAY2  (SEC)  =  2. 

ENTER  SCAN  TIME  (HINtSEC) 

SCAN  TIME  (HINtSEC)  =  145. 

ENTER  FLUSHING  TINE  (SEC) 

FLUSHING  TINE  (SEC)  =  5# 

ENTER  STD.  ADDITION  TIME  (SEC) 

STD.  ADDITION  TIME  (SEC)  =  8. 

ENTER  ACID  ?  <YES=1  ,NO=f) 

ACID  ?  (YES=1.NW)  =  1. 

ENTER  ACID  ADDITION  TINE  (SEC) 

ACID  ADBITION  TIME  (SEC)  =  8. 


ENTER  PURGE  BELAY  TIME  (HINtSEC) 

PURGE  DELAY  TIME  (HINtSEC)  *  2#f 

ENTER  ZINC  ANALYSIS  <YES=1.N04) 

ZINC  ANALYSIS  <YES=1.N0=#)  *  f. 

ENTER  CYCLE  t  FOR  STD.  ADD  . 

CYCLE  t  FOR  STD.  ADD  .  >  3. 

ENTER  CD  STANDARD  CONC.-IN  Pfl 

CD  STANDARD  CONC.-IN  PPI  =  .2 

ENTER  PB  STANDARD  CONC.-IN  PPt 

PB  STANDARD  CONC.-IN  PPI  =  .4 

ENTER  CU  STANDARD  CONC.-IN  PPB 

CU  STANDARD  CONC.-IN  PPB  =  1 . 

ENTER  CD  LOUER  LIMIT  (IN  VOLTS) 

CD  LOWER  LIMIT  (IN  VOLTS)  =  .9 

ENTER  CD  UPPER  LIMIT  (IN  VOLTS) 

CD  UPPER  LIMIT  (IN  VOLTS)  -  .5 

ENTER  PB  LOUER  LIMIT  (IN  VOLTS) 

PB  LOUER  LIMIT  (IN  VOLTS)  =  .7 

ENTER  PB  UPPER  LIMIT  (IN  VOLTS) 

PB  UPPER  LIMIT  (IN  VOLTS)  =  .3 

ENTER  CU  LOUER  LIMIT  (IN  VOLTS) 

CU  LOUER  LIMIT  (IN  VOLTS)  =  .57 

ENTER  CU  UPPER  LIMIT  (IN  VOLTS) 

CU  UPPER  LIMIT  (IN  VOLTS)  =  .13 


IF  THE  POTENT IOSTATE  PARAMETERS 
ARE  SET.  PUSH  'GO* 


DATA  OUTPUT  xx  CONCENTRATIONS  IN  PPB  xx 


x##1  1979  19#  1444:33 

CU:  H  PB:  .##  CD:  .## 


x##2  1979  1  9#  1451  :#1 

CU:  .##  PB:  .##  Cl:  .## 


Figure  11.  Sample  printout. 
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unit  for  use  in  the  field  or  laboratory,  permitting  a  quick  and  safe  determination  of  proper 
instrument  function  prior  to  actual  use. 

The  ASV  system’s  capacity  for  expansion  or  modification  is  limited  only  by  the 
physical  constraints,  such  as  size  and  weight,  that  the  designer  might  impose  and  by  the 
total  available  memory,  both  core  and  mass  storage.  With  the  advent  of  bubble  and  CCD 
solid  state  mass-storage  memories,  it  would  be  possible  to  combine  very  large  amounts  of 
memory  in  relatively  small  packages,  facilitating  further  expansion  of  system  capability  with 
only  a  modest  increase  in  size  and  weight. 

FUTURE  DEVELOPMENTS 

Work  is  currently  underway  to  characterize  a  new  electrode  material  that  has  shown 
great  promise.  The  material  is  a  low-temperature  isotropic  carbon  in  the  form  of  a  thin 
(1/1 6-in.)  disk  with  a  highly  polished  surface.  These  inexpensive  disks  can  be  used  as 
received  and  are  easily  reconditioned  by  light  polishing  with  fine  diamond  abrasive.  Prelimi¬ 
nary  results  indicate  this  electrode  should  function  continuously  for  at  least  24  hours  before 
requiring  reconditioning. 

Investigations  into  what  parameters  affect  sensitivity  and  a  determination  of  the 
electrodes’  actual  useful  lifetime  will  be  carried  out  during  the  Verifront  Equatorial  Cruise 
of  November  1979.  This  cruise  will  also  provide  the  first  extensive  field  test  of  the  entire 
computer-controlled  ASV  system.  Following  the  Verifront  Project,  the  system  will  undergo 
continuous  testing  and  evaluation  in  San  Diego  Bay  throughout  1 980,  concurrent  with  the 
writing  of  a  comprehensive  operations  manual. 

These  lengthy  field  tests  will  provide  the  necessary  operation  time  to  enable  us  to 
optimize  the  system’s  software  and  hardware  configurations. 
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SYSTEM  CONTROL  AND  COMPUTING  PROGRAMS 

All  software  was  written  in  6800  assembly  language  under  Motorola’s  EDOS 
Operating  system,  using  Motorola’s  Macro  Assembler  and  Linking  Loader. 

Control  Prog  Size  =  ~8K  Computing  Prog  -  ~4K 


SECTION  I:  Utility  Subroutines 


Label 

Function 

Page 

BCDB 

BCD-to-Binary  Conversion 

19 

RMUL 

16X16  BIT  multiply 

21 

DV16 

16  X  16  BIT  Divide 

22 

DIV.1 

32  X  16  BIT  Divide 

24 

TIME 

Real-time  clock  display 

26 

PRT1 

Message  Printer 

27 

CLK 

Real-time  clock  input  handler 

28 

GNTM 

General-Purpose  Timing  Loop 

32 

SECTION  II:  Keyboard  interface  and  A/D-D/A  set-up  subroutines 

Label 

Function 

Page 

FRTQ 

A/D  and  D/A  set-up 

35 

KBIN 

Keyboard  input  and  conversion 

43 

PRNT 

Printer  controller 

49 

DSPL 

LED  display 

52 

SECTION  III  . 

Main  System  Control  Routines 

Label 

Function 

Page 

RESET 

System  initialization 

55 

IN  IT 

Parameter  set-up 

62 

PROG 

Main  system  control  program 

73 

MESG 

Message  list 

86 

POLL 

Interrupt  polling 

88 

SCAN 

Data  collecting 

94 

HALT 

Parameter  changing 

101 

QFIX 

Question  repeat 

103 

CT 

Toggle  for  elapsed  timer 

104 

SECTION  IV: 

Computing  Routine 

Label 

Function 

Page_ 

COMP 

Data  reduction  and  concentration  calculations 

107 

15 


SECTION  I: 
Utility  Subroutines 


001  BCDB  **♦  BCD  TO  BINARY  CONVERSION  ROUTINE  *** 

NAM  BCDB  VER.1.1  11-22-7?  C 

* 

*  FILE  NAMES:  S.BCDB  (S)  /  BCDB*  (R)  /  BCDB  (A) 

* 

OPT  REL 

« 

TTL  ***  BCD  TO  BINARY  CONVERSION  ROUTI 

* 

************************************************* 
*  > 

*  THIS  SUBROUTINE  CONVERTS  4  PACKED  BCD  DIGITS 

*  16  BIT  BINARY  NUMBER. 

* 

*  INPUT  IS  IN  A  (MSB)  &  B  (LSB)  REG 

*  OUTPUT  IS  IN  A  (MSB)  S.  B  (LSB) 

************************************************* 


0000 

B7 

0000 

D 

BCDBIN 

STAA 

SAVE1 

0003 

7F 

0001 

D 

CLR 

BINUPR 

0006 

17 

TBA 

0007 

C4 

0F 

A 

ANDB 

#$0F 

0009 

44 

LSRA 

000A 

44 

LSRA 

000B 

44 

LSRA 

000C 

44 

LSRA 

000D 

27 

05  0014 

TENLP 

BEQ 

DOHUND 

000T 

CB 

0A 

A 

ADDB 

#10 

0011 

4A 

DECA 

0012 

20 

P9  000D 

BRA 

TENLP 

0014 

0C 

DOHUND 

CLC 

0015 

B6 

0000 

D 

LDAA 

SAVE1 

0018 

84 

0F 

A 

ANDA 

#$0F 

001A 

27 

0A  0026 

HUNLP 

BEQ 

DOTHOU 

001C 

CB 

64 

A 

ADDB 

#100 

001E 

24 

03  0023 

BCC 

HUNOO 

0020 

7C 

0001 

D 

INC 

BINUPR 

0023 

4A 

HUNOO 

DECA 

0024 

20 

F4  001A 

BRA 

HUNLP 

0026 

B6 

0000 

D 

DOTHOU 

LDAA 

SAVE1 

0029 

44 

LSRA 

002A 

44 

LSRA 

002B 

44 

LSRA 

002C 

44 

LSRA 

002D 

B7 

0000 

D 

STAA 

SAVE1 

0030 

26 

05  0037 

BNE 

THOU00 

0032 

B6 

0001 

D 

LDAA 

BINUPR 

0035 

20 

0D  0044 

BRA 

XITBIN 

003? 

B6 

0001 

D 

THOU00 

LDAA 

BINUPR 

003A 

0C 

THOULP 

CLC 

003B 

CB 

E8 

A 

ADDB 

#232 

003D 

89 

03 

A 

ADCA 

#$03 

003F 

7A 

0000 

D 

DEC 

SAVE1 

0042 

26 

F6  003A 

BNE 

THOULP 

0044 

39 

XITBIN 

* 

RTS 

* 

XDEF 

BCDBIN 

19 


Mf Ht«  «**• ' -i '.1— 


i 


002  BCDB 


BCD  10  BINARY  CONVERSION  ROUTINE  *** 


0000 

0000  0001 

0001  0001 

ERRORS  00000 


* 

DSCT 

* 

A  SAVE1  8MB 
A  BINDPR  RMB 
* 


END 


1 

1 


i 

! 


20 


801  RHULT  ***  16  X  16  BIT  MULTIPLY  ♦** 


NAM  RHULT 

*  TILE  NAMES:  &RMUL  (S)  /  RMUL  (R) 

* 

OPT  REL 

TTL  ***  16  X  16  BIT  MULTIPLY  *** 

* 

*****♦*#**♦**#***♦#**♦♦*****♦#*•**♦* 

*  UNSIGNED  MULTIPLY  ROUTINE 

* 

*  TO  SET  DP  FOR  USE: 

*  LDAA  (HI  BYTE)  16  BIT  VALUE 

*  LDAB  (LO  BYTE)  MULTIPLICAN 

*  INS 

*  INS 

*  INS 

*  INS 

*  INS 

*  PSHB 

*  PSHA 

*  LDAA  (HI  BYTE)  MULTIPLIER 

*  LDAB  (LO  BYTE) 

*  PSHB 

*  PSHA 

*  DES 

*  JSR  MULTI 6 

* 

*  RETURNS  VI TH  HI  BYTE  IN  A  REG 

*  &  LO  BYTE  IN  B  REG 

* 

*********************************** 

* 

* 


0000 

38 

MULT16 

rsx 

8001 

86 

18 

A 

LDAA 

#16 

0003 

A7 

02 

A 

STAA 

2,X 

0005 

4F 

CLRA 

8086 

5F 

CLRB 

000? 

66 

03 

A 

ROR 

3,X 

8009 

66 

04 

A 

ROR 

4,1 

000B 

24 

04 

0011 

NNEXT 

BCC 

RROTN 

808D 

EB 

06 

A 

ADDB 

5,X 

000F 

A9 

05 

A 

ADCA 

5,X 

0811 

46 

RROTN 

RORA 

8012 

56 

RORB 

0013 

66 

03 

A 

ROR 

3»X 

8015 

66 

04 

A 

ROR 

4,X 

0017 

6A 

02 

A 

DEC 

2,X 

0019 

26 

F0 

000B 

BNE 

NNEXT 

001B 

39 

RTS 

* 


*  EXTERNAL  DEFINITIONS 

* 

XDEF  MULT 18 

* 

END 

ERRORS  00088 
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001  DV1S  ***  16  X  16  BIT  DIVIDE  ROUTINE  *** 


* 

* 

* 

* 


NAM  DV16  VER .1.1  11-22-77  CLAV 

FILE  NAMES  :  &DV16  (S)  /  DV16  (R) 

OPT  REL 

TTL  ***  16  X  16  BIT  DIVIDE  ROUTINE  ** 


* 

***********#*^**********#$****#*****4*#*  ******** 
* 

*  THIS  ROUTINE  DIVDES  TWO  UNSIGNED  15  SIT 

*  NUMBERS  INTO  EACH  OTHER  AND  RETURNS  A 

*  16  BIT  ANSWER. 

* 

*  TO  USE:  ENTER  WITH  HI  BYTE  CF  DIVIDEND  IN  A 

*  &  LO  BYTE  IN  E 

*  ADDRS.  OF  HI  BYTE  C?  DIVISOR  IN  X 

* 

*  RETURNS:  A  -  HI  BYTE  RESULT 

*  B  -  LO  BYTE  RESULT 

* 

iM'***#**********************#********#********#** 


* 

* 

* 


0000 

37 

DIV15 

PSHB 

0001 

36 

PSP* 

0002 

A6 

00 

A 

LDAA 

X 

0004 

E6 

01 

A 

LDAB 

l.X 

0006 

37 

PSHB 

0007 

36 

PSEA 

0008 

34 

DES 

0009 

30 

TSX 

000A 

86 

01 

A 

LDAA 

#1 

000C 

6D 

01 

A 

TST 

l.X 

000  E 

2B 

03 

001B 

BMI 

DIV153 

0010 

4C 

DIV151 

INCA 

0011 

68 

02 

A 

ASL 

2.X 

0013 

69 

01 

A 

ROL 

l.X 

0015 

2B 

04 

001B 

BMI 

DIV 153 

0017 

81 

11 

A 

CMPA 

#17 

0019 

26 

F5 

0010 

BNE 

DIV 151 

001B 

A7 

00 

A 

DIV153 

STAA 

X 

001D 

AS 

03 

A 

LDAA 

3.X 

001F 

E6 

04 

A 

LDAB 

4,X 

0021 

5F 

03 

A 

CLR 

3,X 

0023 

6F 

04 

A 

CLR 

4 .  X 

0025 

E0 

02 

A 

DIV153 

SUBB 

2.X 

0027 

A2 

01 

A 

SBC  A 

l.X 

0029 

24 

07 

0032 

BCC 

DIV165 

002B 

EB 

0? 

A 

ADDB 

2.X 

002D 

A9 

31 

A 

A  DC  A 

l.X 

002F 

0C 

CLC 

0030 

20 

01 

0033 

BRA 

DIV 167 

e032 

0D 

DIV165 

SEC 

0033 

69 

04 

A 

DIV167 

ROL 

4.X 

0035 

69 

03 

A 

ROL 

3.X 

0037 

64 

01 

A 

LSR 

l.X 

22 


KB&.oM*.,!-  -  . ..JT  ....  ...  i  i’ 


002  DV16  ***  16  X  16  BIT  DIVIDE  BOOTUP  *** 


0039  66  02  A  ROR 

003B  6A  00  A  DEC 

003D  26  E6  0025  BNB 

003?  31  INS 

0040  31  INS 

0041  31  INS 

0042  32  PULA 

0043  33  PULE 

0044  39  RTS 


* 

* 

XDEF 

* 

END 


ERRORS  00000 


23 


awto**--**! uwfc-iwiKK...,  ,■*** . 


2.X 

X 

DIV163 


DIV16 


■  if  -iiliBiltftili 


001  DIV3  ***  32  X  16  EIT  DIVIDE  *♦* 


NAM  DIV3  VER.  1.1  11-22-77  CLAV 

* 

*  FILE  NAMES:  SDIV3  (S)  /  DIV3  (R; 

* 

OPT  REL 

* 

TTL  ***  32  X  16  BIT  DIVIDE  *** 

* 

*  THIS  ROUTINE  DIVIDES  A  16  BIT  NUMBER  INTO  A  37  &>T 

*  NUMBER  AND  RETURNS  A  16  BIT  NUMBER. 

* 

$*>o <**  ******  ******  ********  ******  **********  ******** 

* 

* 

* 


0200 

6D 

4A  004C 

DIV32 

BSR 

OVFTST 

0002 

CE 

0011 

A 

L  5 

LDX 

#17 

0005 

5F 

L0 

CLRB 

0006 

B5 

0004 

D 

LDAA 

DSORU 

0009 

B1 

0001 

D 

CMPA 

DENDHU 

000C 

27 

30  003E 

BEQ 

L2 

000E 

22 

13  0023 

BFI 

LI 

0010 

5C 

L3 

INCB 

0011 

B6 

0000 

D 

LDAA 

DEN DEL 

0014 

B0 

0005 

D 

SUBA 

DSORL 

0017 

B7 

0000 

D 

STAA 

DENDEL 

001 A 

B6 

0001 

D 

LDAA 

DENDHU 

001D 

B2 

0004 

D 

SBCA 

DSORU 

0020 

B? 

0001 

D 

STAA 

DENDHU 

0023 

ec 

3001 

A 

LI 

CPX 

#1 

0026 

27 

20  0048 

BEO 

L7 

0028 

8D 

39  0063 

BSR 

STSHF 

002A 

79 

0000 

D 

ROL 

DENDEL 

002D 

79 

0001 

D 

ROL 

DENDHU 

0030 

FA 

0003 

D 

LS 

ORAB 

DENDLL 

0033 

F7 

0003 

D 

STAB 

DENDLL 

0036 

09 

DEX 

0037 

26 

CC  0005 

BNE 

L0 

0039 

FE 

0002 

D 

LDX 

DENDLU 

003C 

0A 

CLV 

0Z3D 

39 

RTS 

003E 

B6 

0005 

D 

L2 

LDAA 

DSORL 

0041 

B1 

0000 

D 

CMPA 

DENDHL 

0044 

22 

DD  0023 

BEI 

LI 

0046 

20 

C8  0010 

BRA 

L3 

0048 

8D 

19  0063 

L? 

BSR 

STSHF 

004A 

20 

E4  0030 

BRA 

L6 

004C 

B6 

0001 

D 

OVFTST 

LDAA 

DENDHU 

004F 

B1 

0004 

D 

CMPA 

DSORU 

0052 

2E 

0B  005F 

BGT 

OVFYES 

0054 

2D 

08  005E 

BLT 

OVFNO 

0056 

B6 

0005 

D 

LDAA 

DSORL 

0059 

31 

0000 

D 

CMPA 

DENDHL 

005C 

23 

01  005F 

BLS 

OVFYES 

005E 

39 

OVFNO 

RTS 

005F 

32 

OVFYES 

PULA 

24 


002  DI73  ***  32  X  16  BIT  DIVIDE  *** 


0060 

32 

PULA 

0061 

0B 

SEV 

0062 

39 

RTS 

0063 

76 

0003 

D 

STSHF 

ASL 

0066 

79 

0002 

D 

ROL 

0069 

39 

gfc 

RTS 

* 

XDEF 

XDEF 

* 

0000 

$ 

DSCT 

0000 

0001 

A 

DENDHL 

RMB 

0001 

0001 

A 

DENDHU 

RMB 

0002 

0001 

A 

DENDLU 

RMB 

0003 

0001 

A 

DENDLL 

RMB 

0004 

0001 

A 

DSORU 

RMB 

0005 

0001 

A 

DSORL 

RMB 

* 


DENDLL 

DENDLU 


DENTEU , DENDHL, DENDLU , DENDLL 
BSCRU .DSORL.DI V32 


1 

1 

1 

1 

1 

1 


ERRORS  00000 


END 


001  TIME  ***  REAL-TIME  LED  DISPLAY  SUBROUTINE  ♦** 


0000  B5  0000  A 

0003  7C  0000  A 
0006  BD  0000  A 

0009  B6  0000  A 
000C  ZB  02  0010 

000E  20  F6  0005 

0010  7F  0000  A 
0013  39 


ERRORS  00000 


NAM  TIME  TER.  2  4-9-78  CLATEL 

* 

*  FILE  NAME:  &TIME  (S)/  TIME  (R) 

4 

OPT  REL 

* 

TIL  ***  REAL-TIME  LED  DISPLAY  SUBROUTI 

* 

************************************************* 

* 

*  THIS  ROUTINE  DISPLAYS  THE  CURRENT  TIME  ON  THE 

*  LED'S  UNTIL  THE  "GO"  BUTTON  IS  PUSHED.  TIME 

*  APPROX.  EVERY  SEC.. 

* 

*  THE  ROUTINE  IA  A  SUBROUTINE  AND  WILL  ONLY  BE 

*  DURING  INTIALIZATION  TO  ALLOW  SETTING  OF  THE 

* 

*  "GO”  COMES  IN  ON  :  CB1-PIA5 

* 

************************************************* 


* 


TIME 

LDAA 

P5BP 

DUMMY  READ  TO 

CLR 

* 

INTER.  FLAGS 

INC 

TIMFLG 

SET  TIMFLG 

SKIP75 

£ 

JSR 

CLOCK 

GET  TIME  AND 

DIPLAY 

LDAA 

P5BC 

CHECK  IF  "GO" 

PUSHED 

$ 

BMI 

SKIP75 

YES-  RTS 

$ 

BRA 

SKIP76 

NO-  READ  CLOCK  AGAIN 

SKIP75 

CLR 

TIMFLG 

CLR  FLAG 

RTS 

RETURN 

* 

* 


*  ***  EXTERNAL  REFERENCES  *** 

* 

XREF  TI MFLG , C  LOCK « P53C , P5BP 

* 

* 

*  ***  EXTERNAL  DEFINITIONS  *** 

* 

XDEF  TIME 

* 

END 


001  PHINT1  ***  MESSAGE  PRINTING  SUBROUTINE  *♦* 


* 

NAM 

PR INTI 

PER .  1  11-8-7?  CLAVE 

*  FILE  NAMES:  &PRT1 

* 

(S)  /PRT1  (R) 

♦ 

OPT 

REL 

♦ 

ITL 

***  MESSAGE  PRINTING  SUBROUTINE  *♦ 

0005 

♦ 

* 

ORG 

$0005 

0005 

0002 

A 

STRADR 

$ 

RMB 

2 

0000 

* 

PSCT 

0000 

DF 

05 

A 

PRINI1 

STX 

STRADR 

MESS  BUFF  STARTING  A DDR. 

0002 

B6 

0000 

D 

LDAA 

BLOCK 

*  OF  LINES  IN  MESS. 

0005 

B? 

000? 

A 

STAA 

BLKADR 

0008 

BD 

B2C3 

A 

JSR 

SUB1 

PRINT  BUFF 

000B 

BD 

B2A0 

A 

4 

JSR 

SUB2 

000E 

39 

RTS 

* 

* 


* 


* 

XDEF 

SUB1 *SUB2, SUB3, BLOCK tBLKADR, STRADR , 

B2C3 

A 

SUB1 

EQU 

$B2C3 

B2A0 

A 

SUB2 

EQU 

$B2A0  DRIVER 

B38B 

A 

SUB3 

* 

EQU 

$B38B  LF 

0007 

A 

BLKADR 

* 

EQU 

$0007 

0000 

$ 

DSCT 

0000 

0001 

A 

BLOCK 

RMB 

1 

* 


ERRORS  00000 


END 


001  CLOCK  ***  REAL-TIME  CLOCK  INPUT  SUBROUTINE  *** 


NAM 

CLOCK 

VER.  3  4-18-79 

CLAVEL 

FILE: 

S.CLK 

(S)/  CLK  (R> 

OPT 

REL 

TTL 

*** 

REAL-TIME  CLOCK  INPUT 

St’BROUTI 

* 

* 

************************************************* 

*  THIS  SUBROUTINE  READS  IN  THE  CURRENT  TIMS 

*  FROM  THE  REAL-TIME  CLOCK  IN  BCD  DIGITS  (*'■, 

*  ONE  AT  A  TIME.  BY  TOGGLING  THE  CB?(PI»'?' 

*  LINS  TO  ADVANCE  THE  DIGIT  INPUT.  THV 

*  DIGITS  ARE  STORED  IN  (T*CDM-S)  AND  «LSO 

*  THE  HR, MIN  &  SEC  DIGITS  ARE  PACKED  IN 

*  TBCDE,  TBCDM  S.  TBCDS. 

* 

*  THIS  ROUTINE  IS  ALSO  USED  BY  THE  RESET 

*  PROG  TO  DISPLAY  THE  TIME  ON  THE  LED'S  TO 

*  ALLOW  SETTING  THE  CLOCK. 

* 

************************************************* 

* 

* 


0000 

$ 

DSCT 

0000 

0002 

A 

DIGITU 

RMB 

2 

0002 

0001 

A 

TBCDH 

RMB 

1 

0003 

0001 

A 

TBCDM 

RMB 

1 

0004 

0001 

A 

TBCDS 

RMB 

1 

0005 

0001 

A 

THRB 

RMB 

1 

0006 

0002 

A 

TBCDBU 

RMB 

2 

0008 

0001 

A 

TSTORU 

RMB 

1 

0009 

0001 

A 

TSTORL 

RMB 

1 

000A 

0001 

A 

DISPCN 

* 

RMB 

1 

0000 

* 

* 

PSCT 

0000 

0F 

* 

CLOCK 

SEI 

SET  INTERRUPT  MASK 

0001 

B6 

0000 

A 

LDAA 

P7BP 

READ  B  SIDE  OE  PIA 

0004 

43 

COMA 

COMPLEMENT  A 

* 

BIT  7  SET?  STATR  WITH  SEC  DT 

0005 

2B 

1C  0023 

BMI 

SKIP70 

YES-  GO  TO  SKIP70 

* 

OTHERWISE  TOGGLE  CB2-PIA7 

0007 

36 

0000 

A 

LDAA 

P7BC 

000A 

8B 

08 

A 

ADDA 

#$06 

SET  BIT  3 

000C 

B7 

0000 

A 

* 

STAA 

P73C 

000F 

C6 

0F 

A 

LDAB 

#15 

100  US  DPLAY 

0011 

5A 

STALL 

DECB 

0012 

26 

FD  0011 

* 

BNE 

STALL 

0014 

B6 

0000 

A 

LDAA 

P7BC 

0017 

84 

F7 

A 

ANDA 

#$F7 

CIS  BIT  3 

0019 

B7 

0000 

A 

STAA 

P7BC 

002  C10CI  ***  REAL-TIME  CIOCX  INPUT  SUBROUTINE  *** 


001C 

86 

C8 

A 

* 

LDAA 

#200 

0011 

4A 

STAL2 

DECA 

1  MS  DELAY 

001? 

26 

TV  001 E 

$ 

BNE 

STAL2 

0021 

20 

DO  0000 

* 

BRA 

CLOCK 

START  OVER 

0023 

C6 

06 

A 

SEIP70 

LDAB 

#6 

SET  UP  COUNTER 

0025 

CE 

000B 

D 

LDX 

#TBCDB1 

LOAD  X  WITH  1ST  BU??  A DDR 

0028 

84 

0? 

A 

SIXP71 

* 

ANDA 

#$0? 

MASK  0??  UPPER  4  BITS 

002A 

A? 

00 

A 

* 

STAA 

X 

PUT  DIGIT  INTO  BU?? 

002C 

B6 

0000 

A 

LDAA 

P7BC 

oO 

002? 

8B 

08 

A 

ADDA 

#$08 

TOGGLE  CB2  POR 

0031 

B? 

0000 

A 

* 

STAA 

P7BC 

NEXT  DIGIT 

0034 

86 

0? 

A 

LDAA 

#15 

0036 

4A 

STAL1 

DECA 

003? 

26 

?D  0036 

* 

BNE 

STAL1 

DELAY 

0039 

B6 

0000 

A 

LDAA 

P7BC 

003C 

84 

?7 

A 

ANDA 

#$?? 

OFF  C &CL 

003E 

B? 

0000 

A 

* 

STAA 

P7BC 

0041 

5A 

DECB 

DONE  6  TIMES? 

0042 

27 

0C  0050 

BEQ 

SEIP72 

TBS-  GO  TO  SKIP72 

* 

NO-  CONTINUE 

0044 

08 

* 

I  NX 

INC  THE  BU??  ADDR. 

0045 

86 

?A 

A 

LDAA 

#250 

0047 

4A 

STAL3 

DECA 

1.5  MS  DELAY 

0048 

26 

TV  0047 

* 

BNE 

STALS 

004A 

B6 

0000 

A 

LDAA 

P7BP 

READ  CLOCK 

004D 

43 

COMA 

COMPLEMENT  A 

004E 

20 

D8  0028 

* 

BRA 

SEIP71 

LOOP 

0050 

7D 

0000 

A 

SEIP72 

TST 

TIMELG 

CALLED  ?ROM  TIME? 

0053 

26 

29  007 E 

* 

BNE 

SXIP73 

YES-  GO  TO  SKIP73 

* 

OTHERWISE  CONTINUE 

0055 

B6 

000C 

D 

LDAA 

TBCDB2 

0058 

48 

ASLA 

0059 

48 

AS  LA 

005A 

46 

ASLA 

1 

005B 

48 

ASLA 

S  Dl*'!* 

005C 

BB 

000B 

D 

ADDA 

TBCDB1  \ 

.PACK  B9W1D-0 

* 

MOHS  II 

1T0  TBCDJTS 

005? 

B7 

0004 

D 

* 

STAA 

TBCDS 

0062 

B6 

000E 

D 

LDAA 

TBCDB4 

jmiVi's 

0065 

48 

ASLA 

0066 

48 

ASLA 

PACK  UPPM  -P 

0067 

48 

ASLA 

DIGITS  INTO 

0068 

48 

ASLA 

TBCDjm 

0069 

BB 

000D 

D 

* 

ADDA 

TBCDB3 

003 

CLOCI  *♦* 

REAL-TIME  CLOCE  INPUT 

SUBROUTINE  *** 

006C 

B7 

0003 

D 

£ 

STAA 

TBCDM 

MIN.'S 

006? 

B6 

0010 

D 

LDAA 

TBCDB6 

0072 

48 

ASLA 

0073 

48 

ASLA 

PACK  HR'S 

0074 

48 

ASLA 

INTO  TBCDH 

0075 

48 

ASLA 

0076 

BB 

000F 

D 

* 

ADDA 

TBCDB5 

0079 

B7 

0002 

D 

* 

STAA 

TBCDH 

007C 

0E 

CLI 

007D 

39 

♦ 

RTS 

RETURN 

007E 

7F 

0008 

D 

♦ 

SKIP73 

CLR 

TSTORD 

CONVERT  BCD  DIGITS 

0081 

C6 

06 

A 

LDAB 

#6 

TO  SEG.  CODE  FOR 

0083 

CE 

000B 

D 

LDX 

#TBCDB1 

DISPLAT 

0086 

FF 

0006 

D 

STX 

TBCDBU 

0089 

CE 

0000 

A 

LDX 

#DIGIT6 

008C 

FF 

0000 

D 

STX 

DIGITU 

TBCDB1  *  l'S  SEC 

♦ 

* 

TBCDB6  *  10 'S  HR 

008F 

FE 

0006 

D 

SEGCON 

LDX 

TBCDBU 

0092 

A6 

00 

A 

LDAA 

X 

TBCDB1  INTO  A" 

0094 

B7 

0009 

D 

* 

STAA 

TSTORL 

"A"  INTO  TSTORL 

0097 

FE 

0008 

D 

LDX 

TSTORU 

TBL  +  (OFSET)  INTO  “A 

009A 

A6 

00 

A 

* 

LDAA 

TBL.X 

009C 

FE 

0000 

D 

LDX 

DIGITU 

CODED  DIGIT  INTO  DIGIT 

009F 

A7 

00 

A 

STAA 

X 

00A1 

FE 

0006 

D 

LDX 

TBCDBU 

00A4 

08 

I  NX 

INC  BCD  DIGIT  BUFF 

00A5 

FF 

0006 

D 

£ 

STX 

TBCDBU 

00A8 

FE 

0000 

D 

LDX 

DIGITU 

DEX  SEG  CODED 

00AB 

09 

DEI 

DIGIT  BUFF 

00AC 

FF 

0000 

D 

* 

STX 

DIGITU 

00AF 

5A 

DECB 

IF  NOT  DONE  6 

00B0 

26 

DD  008F 

* 

BNE 

SEGCON 

TIMES  LOOP  BACK 

00B2 

C6 

3C 

A 

♦ 

LDAB 

#60 

DISPLAY  TIME  FOR 

00B4 

F7 

000A 

D 

* 

STAB 

DISPCN 

900  MS  ON  LED'S 

00B7 

BD 

0000 

A 

SIIP74 

* 

JSR 

DISPLA 

00BA 

7A 

000A 

D 

DEC 

DISPCN 

00  BD 

26 

F8  00B7 

* 

BNE 

SKIP74 

00BF 

0E 

CLI 

00C0 

39 

RTS 

* 


* 

*  ***  EXTERNAL  REFERENCES  *♦* 


30 


004  CLOCK  ***  RIAL -TIME  CLOCK  INPUT  SUBROUTINE  *** 


* 

IRE?  D I S  PL A , TBL , DIG IT6 , TI M?LG , P7BC , P7BP 

* 

♦  ***  EXTERNAL  DEFINITIONS  *♦* 

* 

IDE?  TBCDB1 , TBCDB2fTBCDB3,TBCDB4 .TBCDB5, 
XDEF  TBCDHtTBCDM,TBCDS, CLOCK 

* 

* 


000 B 

000B 

0001 

A 

* 

TBCDB1 

DSCT 

RMB 

1 

000C 

0001 

A 

TBCDB2 

RMB 

1 

000 D 

0001 

A 

TBCDB3 

RMB 

1 

000 E 

0001 

A 

TBCDB4 

RMB 

1 

000? 

0001 

A 

TBCDB5 

RMB 

1 

0010 

0001 

A 

TBCDB6 

RMB 

1 

* 

* 


ERRORS  00000 


END 
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001  GENTM  **  GENERAL  PURPOSE  TIMING  ROUTINE  ** 


-j  •< 


NAM  GENTM  PER.  1  12-15-7?  C LA YELL 

* 

♦  PILE  NAMES*  &GNTM  (S)  /  GENTM  (R) 

* 

OPT  REL 

* 

TTL  **  GENERAL  PURPOSE  TIMING  ROUTINE  * 

* 

****************************************** 

*  TIME  DELAY  ROUTINE:  TO  USE  LOAD  A  REG 

*  WITH  2  TIMES  THE  #  OP  SEC  POR  DELAY 

*  THEN  CALL  GENTIM:  IE.  LDAA  #12 

*  JSR  GENTIM  /  WOULD  GIVE  A  6  SEC  DELAY 

****************************************** 

* 


* 


0000 

CE 

F423  A 

GENTIM 

LDX 

#$F423 

0003 

09 

DECRX 

DEX 

0004 

26 

FD 

0003 

BNE 

DECRX 

0006 

CE 

2A51  A 

LDX 

#$2A51 

0009 

09 

DECX 

DEX 

000A 

26 

PD 

0009 

BNE 

DECX 

000 C 

4A 

DSCA 

000D 

26 

PI 

0000 

* 

BNE 

GENTIM 

000P 

39 

* 

RTS 

* 

XDEP 

GENTIM 

* 


ERRORS  00000 


END 


THIS  ROUTINE  IS  NOT  PERFECTLY  LINEAR. 
INPUT  TIME  (SEC)  ACTUAL  TIME  (SEC) 


5 

5.2 

10 

10.1 

15 

15.0 

20 

19.9 

30 

29.8 

40 

39.6 

60 

59.2 
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SECTION  II: 

Keyboard  Interface  and  A/D-D/A  Set-Up  Subroutines 


33 


001  FRTQ  ***  IP  S  FP  INPOT  ROUTINE  **♦ 


* 

* 

* 

* 


NAM  FRTQ  VER  14  9-19-79  CLAVELL 

FILE  NAMES:  S.FRTQ  (S)  /  FRTQ  (R) 

OPT  REL 

TTL  ***  IP  &  FP  INPUT  ROUTINE  *** 


* 

************************************************* 

* 

*  THIS  SUBROUTINE  ASKS  FOR  INPUTS  FOR  THE  SCAN 

*  INITIAL  AND  FINAL  POTENTIALS  AND  FORMS  THE  END 

*  POINT  COMPARISON  VALUE  AND  THE  D/A  INITIAL 

*  POTENTIAL  VALUE. 

* 

************************************************* 

* 

* 

* 


*****  RANGE  CALC.  SUBROUTINE  ****** 

* 

*  CALCULATE  HIGH  &  LOW  PEAK  RANGE  VALUES 

*  FOR  USE  IN  COMPT.  STORE  RESULTS  INTO 

*  LOWECO ,LOWECO+l ,ETC . 

*  LOWECO  HAS  MOST  NEG  VALUE,  (START  OF  PEAK) 

* 


* 

* 

* 

* 

* 

* 

* 


EXAMPLE  RANGE  ZN:  -1.2  TO  -.9 

VALUES:  CD:  -.87  TO  -.5 

PB:  -.65  TO  -.25 
CU:  —  .55  TO  —.15 
VOLTAGE  *  1000  =  INTEGER  VALUE  (IV) 

I.E.:  .65  *  650  ($028A)  =  (IV)  FOR  PB  LOW  VA 


************************************************ 

*  (IP  -  IV)  *  10/3  *  410/1000  =A/D  BIT  COUNTS 
************************************************ 


* 


0000 

SE 

0F50 

A  RNGCAL 

LDS 

#$0F50 

BESET  STACK  PT 

0003 

B7 

0002 

D 

STAA 

TP 

0006 

F7 

0033 

D 

STAB 

TP+1 

0009 

B6 

0018 

D 

LDAA 

I  PH  I 

CALCULATE  (IP-IV)  FOR 

000C 

F6 

0019 

D 

LDAB 

IPLO 

CD 

000F 

F0 

0003 

D 

SUBB 

TP+1 

LOW  BITE 

0012 

B2 

0002 

D 

* 

SBCA 

TP 

HI  BITE 

0015 

31 

INS 

0016 

31 

INS 

0017 

31 

INS 

0018 

31 

INS 

0019 

31 

INS 

001A 

37 

PSHB 

(IP-IV)  *  10 

001B 

36 

PSHA 

001C 

86 

00 

A 

LDAA 

#$00 

00  IE 

C6 

0A 

A 

LDAB 

#?0A 

MULTIPLIER  ON  STACK  ( 

0020 

37 

PSHB 

0021 

36 

PSHA 

0022 

34 

DES 

* 


35 


002  FRTQ  ***  IP  &  PP  INPUT  ROUTINE  *** 


0023 

BD  0030 

A 

* 

JSR 

MULT 16 

0026 

B7  0000 

A 

STAA 

DENDHU 

0029 

P7  0000 

A 

STAB 

DENDHL 

002C 

EE  03 

A 

LDX 

3»X 

00 2£ 

FF  0000 

A 

STI 

DENDLU 

0031 

86  00 

A 

LDAA 

0033 

C6  03 

A 

LDAB 

#>03 

0035 

B7  0000 

A 

STAA 

DSORU 

0038 

F?  0000 

A 

h 

STAB 

DSt)RL 

003B 

BD  0000 

A 

j|i 

JSR 

DIV32 

00 3E 

B6  0300 

A 

LDAA 

DENDLU 

0041 

F6  0000 

A 

* 

LDAB 

DENDLL 

0044 

31 

INS 

0045 

31 

INS 

0046 

31 

INS 

004? 

31 

INS 

0048 

31 

INS 

0049 

37 

PSHB 

004A 

36 

PSHA 

004B 

86  01 

A 

LDAA 

#$01 

004D 

C6  9A 

A 

LDAB 

#$9A 

004P 

37 

PSHB 

0050 

36 

PSHA 

0051 

34 

* 

DES 

0052 

BD  0000 

A 

$ 

JSR 

MULT 16 

0055 

B7  0330 

A 

STAA 

DENDHU 

0058 

F7  0000 

A 

STAB 

DENDHL 

005B 

EE  03 

A 

LDX 

3fX 

00 5D 

PF  0330 

A 

* 

STX 

DENDLU 

0060 

86  03 

A 

LDAA 

#$03 

0062 

C6  E8 

A 

LDAB 

#>E8 

0064 

B?  0303 

A 

STAA 

DSORU 

006? 

P?  0000 

A 

STAB 

DSORL 

006A 

BD  0030 

A 

JSR 

DIV32 

006D 

B6  0330 

A 

LDAA 

DENDLU 

0070 

F6  0000 

A 

* 

LDAB 

DENDLL 

0073 

8E  0P8E 

A 

LDS 

#$0F8E 

0076 

39 

* 

* 

* 

RTS 

# 


0077 

BP 

0000 

D 

FRSTQ 

STS 

STK 

007A 

8E 

0P50 

A 

FRSTQ1 

* 

LDS 

#$0F50 

007D 

7C 

001E 

D 

$ 

INC 

FRSTQF 

0080 

CE 

0000 

A 

LDX 

#MES30 

16*16  MULTIPLY  -32  BIT  RES 


SET  UP  POR  32  BIT  DIVISION 
DIVISOR  (3) 

( ( IP— IV )  *  10/3) 


( ( IP-IV )  *10/3)  *  410 


*  410 


((IP-IV)  *  10/3)  *410/1000 


/1000 


A/D  BIT  COUNTS 


STACK  BACK  AS  WAS 


SAVE  STK  PTR 
RESET  STK  PTR 

FLAG  TO  INDICATE  INTEG.  OR 
DEC.  # :USED  BY  KBIN 


36 


r 

1  ^ 

003  FRTQ  ***  IP  £  FP  INPOT 

ROUTINE 

*** 

0083  BD  0300  A 

* 

JSR 

PRINT 

-! 

0086  86  01  A 

LDAA 

#1 

■1 

0088  BD  0000  A 

* 

* 

JSR 

SB  IN 

INPUT  IP  j 

008B  B6  0000  A 

LDAA 

BINHI 

CHK  FOR  SIGN  BIT  ] 

008E  2A  02  0092 

BPL 

ERROR1 

IF  NOT  SET  :  ERROR  j 

0090  20  03  0095 

BRA 

A1 

1 

0092  7E  026C  P  ERR0R1 
£ 

JMP 

ERROR 

0095  84  7F  &  41 

ft 

ANDA 

#$7F 

MASK  OFF  SIGN  BIT  j 

. 

0097  B7  0018  D 

STAA 

IPEI 

009A  F6  0000  A 

LDAB 

BINLO 

STORE  IP  IN  IPHI  &  LO 

009D  F7  0019  D 

ft 

STAB 

IPLO 

12  BIT  VALUE 

00A0  CE  0000  A 

LDX 

#MES31 

PRINT  FP  MESSAGE 

00A3  BD  0000  A 

ft 

JSR 

PRINT 

00A6  86  01  A 

LDAA 

#1 

00 AS  BD  0000  A 

ft 

JSR 

KBIN 

00AB  B6  0000  A 

LDAA 

BINHI 

00AE  2A  35  00E5 

BPL 

ADDFP 

IF  FP  POS,  GO  TO  ADDFP  ; 

00B0  84  7F  A 

ANDA 

#$7F 

OTHERWISE  MASK  SIGN  BIT 

00B2  B7  0000  A 

STAA 

BINHI 

STORE  FP  BACK  TO  BINHI 

00B5  B6  0018  D 

LDAA 

IPHI 

00B8  F6  0019  D 

* 

LDAB 

IPLO 

T 

00BB  B1  0000  A 

CMPA 

BINHI 

COMPARE  IP  TO  FP 

00BE  27  07  00C7 

BEQ 

LOVCX 

00C0  2D  02  00C4 

BLT 

ERR0R2 

00C2  20  0D  00D1 

BRA 

CONT 

IS  IP>FP? 

00C4  7E  026C  P  ERR0R2 

JMP 

ERROR 

00C7  FI  0000  A  LOWCK 

CMPB 

BINLO 

IF  TES  GO  TO  ERROR 

00CA  2D  02  00CE 

BLT 

ERR0R3 

00CC  20  03  00D1 

BRA 

CONT 

00CE  7E  026C  P  ERROR3 

JMP 

ERROR 

! 

00D1  B6  0018  D  CONT 

LDAA 

IPHI 

00D4  F6  0019  D 

LDAB 

IPLO 

00D7  F0  0000  A 

SUBB 

BINLO 

DIFF=IP-FP 

00DA  B2  0000  A 

SBCA 

BINHI 

00 DD  B7  0016  D 

STAA 

DIFHI 

00E0  F7  0017  D 

STAB 

DIFLO 

00E3  20  0F  00F4 

jfc 

BRA 

DIFCK 

GO  TO  DIFCK 

00E5  F6  0000  A  ADDFP 

LDAB 

BINLO 

00E8  FB  0019  D 

ADDB 

IPLO 

DIFF=IP+FP 

00EB  B9  0018  D 

£ 

ADCA 

IPBT 

00EE  B7  0016  D 

STAA 

DIFHI 

00F1  F7  0017  D 

STAB 

DIFLO 

DIF  IN  DIFHI  &  LO 

00F4  81  0B  A  DIFCK 

CMPA 

#$0B 

IS  DIFF  >  3000  DEC. 

00F6  2E  04  00FC 

BGT 

ERR0R4 

00F8  27  05  00FF 

BEQ 

DIFCK1 

TES:  ERROR 

r 

37 

004  FRTQ  ***  IP  i  FP  INPUT  ROUTINE  **♦ 


00FA 

20 

0C  0109 

BRA 

CONTI 

NO: 

CONTINUE 

00FC 

?E 

026C 

P 

ERR0R4 

JMP 

ERROR 

00FF 

Cl 

BS 

A 

DIFCK1 

CMPB 

#$B8 

0101 

2E 

02  0105 

BGT 

ERR0R5 

0103 

20 

03  0109 

BRA 

CONTI 

0105 

7E 

026C 

P 

ERROR5 

£ 

JMP 

ERROR 

0108 

CE 

01FC 

A 

CONTI 

LDX 

#ZERO 

D/A 

ZERO  VALUE 

010B 

FF 

0014 

D 

STX 

ZEROl 

010E 

7E 

01A4 

P 

JMP 

SKIPZN 

* 


************************************************* 

*  CALCULATE  PEAK  RANGE  VALUES  ON  X  AXIS 

*  CALLED  FROM  "iNIT" 

************************************************* 

* 


0111 

B6 

0006 

D  RNG 

LDAA 

CD+2 

0114 

F6 

0007 

D 

LDAB 

CD+3 

0117 

BD 

0000 

P 

JSR 

RNGCAL 

CD  LOWER  LIMIT 

011A 

B7 

0002 

A 

STAA 

L0WEC0+2 

011D 

F7 

0003 

A 

* 

STAB 

LOWECO+3 

0120 

B6 

0004 

D 

LDAA 

CD 

0123 

F6 

0005 

D 

LDAB 

CD+1 

0126 

BD 

0000 

P 

JSR 

RNGCAL 

CD  UPPER  LIMIT 

0129 

B7 

0002 

A 

STAA 

HIECO+2 

012C 

F7 

0003 

A 

£ 

STAB 

HIECO+3 

012F 

B6 

000  A 

D 

LDAA 

PB+2 

0132 

F6 

000B 

D 

LDAB 

PB+3 

0135 

BD 

0000 

P 

JSR 

RNGCAL 

PB  LOW 

0138 

B7 

0004 

A 

STAA 

LOWECO+4 

013B 

F7 

0005 

A 

* 

STAB 

L0WEC0+5 

013E 

B6 

0008 

D 

LDAA 

PB 

0141 

F6 

0009 

D 

LDAB 

PB+1 

0144 

BD 

0000 

P 

JSR 

RNGCAL 

PB  HI 

0147 

B7 

0004 

A 

STAA 

HIEC0+4 

014A 

F7 

0005 

A 

* 

STAB 

HIECO+5 

014D 

7D 

0000 

A 

TST 

ZINK 

0150 

26 

29  017B 

* 

BNE 

ZNX 

0152 

B6 

000E 

D 

LDAA 

CU+2 

0155 

F6 

000F 

D 

LDAB 

CU+3 

0158 

BD 

0000 

P 

JSR 

RNGCAL 

CU  LOW 

015B 

B7 

0006 

A 

STAA 

L0WEC0+6 

015E 

F7 

0007 

A 

* 

STAB 

LOVECO+7 

0161 

B6 

000C 

D 

LDAA 

CU 

0164 

F6 

000D 

D 

LDAB 

CU+1 

0167 

BD 

0000 

P 

JSR 

RNGCAL 

CU  HI 

016A 

B7 

0006 

A 

STAA 

HIECO+6 

016D 

F7 

0007 

A 

* 

STAB 

HIECO+7 

0170 

7D 

0000 

A 

TST 

F2 

CALLED  FROM  QFIX7 

0173 

27 

03  0179 

BEQ 

J2 

NO: RETURN  INIT 

0175 

7E 

0000 

A 

JMP 

RTNPT 

TES :RETURN  TO  QFIX 

005 

FRTQ  *** 

ip  i 

FP  INPUT  ROUTINE 

*** 

0178 

7E 

0000 

A 

* 

J2 

* 

JMP 

RENTR 

RETURN  TO  INIT 

017B 

B6 

0012 

D 

* 

ZNK 

LDAA 

ZN+2 

017E 

F6 

0013 

D 

LDAB 

ZN+3 

0181 

BD 

0000 

P 

JSR 

RNGCAL 

ZN  LOW 

0184 

B7 

0000 

A 

STAA 

LOVECO 

0187 

F7 

0001 

A 

* 

STAB 

LOWECO+1 

01 8A 

B6 

0010 

D 

LDAA 

ZN 

018D 

F6 

0011 

D 

LDAB 

ZN  +  1 

0190 

BD 

0000 

P 

JSR 

RNGCAL 

ZN  HI 

0193 

B7 

0000 

A 

STAA 

HIECO 

0196 

F7 

0001 

A 

$ 

STAB 

HIECO+1 

0199 

7D 

0000 

A 

TST 

F2 

019C 

27 

03  01A1 

BEQ 

J3 

019E 

7E 

0000 

A 

# 

JMP 

RTNPT 

01A1 

7E 

0000 

A 

J3 

* 

JMP 

RENTR 

RETURN  TO  INIT 

* 

************************************************ 

*  SC 

ALE  IP 

FOR  USE  BY 

10  BIT  D/A 

ft*********************************************** 

* 

01A4 

B6 

0018 

D 

SKIPZN  LDAA 

IPHI 

01A7 

F6 

0019 

D 

LDAB 

IPLO 

SCALE  IP  FOR  D/A  USE 

01AA 

31 

INS 

(DEC.  #)  *  256/5000 

01 AB 

31 

INS 

RESULT  IS  THE  #  OF  BITS 

01AC 

31 

INS 

TO  GIVE  THE  PROPER  MICRO 

01AD 

31 

INS 

AMP'S  FROM  THE  D/A 

01AE 

31 

INS 

01 AF 

37 

PSHB 

01B0 

36 

PS  HA 

01B1 

86 

01 

A 

LDAA 

#$01 

01B3 

C6 

00 

A 

LDAB 

#$00 

01B5 

37 

PSHB 

01B6 

36 

PSHA 

PUT  MULTIPLIER  ON  STACK 

01B7 

34 

* 

DES 

01B8 

BD 

0000 

A 

* 

JSR 

MULT15 

01BB 

B7 

0000 

A 

STAA 

DENDHU 

SET  UP  FOR  DIVISION 

01BE 

F7 

0000 

A 

STAB 

DENDHL 

01C1 

EE 

03 

A 

LDX 

3,  X 

01C3 

FF 

0000 

A 

* 

STX 

DENDLU 

01C6 

86 

13 

A 

LDAA 

#$13 

LOAD  DIVISOR 

01C8 

C6 

88 

A 

LDAB 

#$88 

01CA 

B7 

0000 

A 

STAA 

DSORU 

5000  DEC. 

01CD 

F7 

0000 

A 

* 

STAB 

DSORL 

01D0 

BD 

0000 

A 

* 

JSR 

DIV32 

01D3 

B6 

0000 

A 

LDAA 

DSNDLU 

IS  BIT  ANSWER 

01D6 

F6 

0000 

A 

LDAB 

DENDLL 

39 


? 


006 

FRTQ  *** 

IP  i 

FP  INPUT 

'  ROUTINE 

*** 

01D9 

B7 

001 A 

D 

STAA 

IP10H 

BIT  VALUE 

01DC 

F7 

001B 

D 

* 

STAB 

IP10L 

01DF 

B6 

0014 

D 

LDAA 

ZER01 

ZERO  VALUE 

0112 

F6 

0015 

D 

£ 

LDAB 

ZER01+1 

01E5 

F0 

001B 

D 

SUBB 

IP10L 

01E8 

B2 

001A 

D 

* 

SBCA 

IP10H 

SUB  BIT  VALUE 

01EB 

F7 

001B 

D 

STAB 

IP10L 

10  BIT  D/A  :  OUTPUT 

01  EE 

B7 

001 A 

D 

* 

STAA 

IP10H 

INITIAL  POTETIAL  VALUE 

* 

************************************************* 

** 

SCALING 

FOR  END 

POINT  DETERMINATION 

** 

(DIF  * 

‘  10/3) 

******************** ****************** *********** 

01F1 

B6 

0016 

D 

LDAA 

DIFHI 

01F4 

F6 

0017 

D 

LDAB 

DIFLO 

SCALE  DIF  BY  ie/3 

0117 

31 

INS 

01F8 

31 

INS 

01F9 

31 

INS 

01FA 

31 

INS 

01FB 

31 

INS 

SET  UP  STACK 

01FC 

37 

PSHB 

01 FD 

36 

PSHA 

MULTIPLICAN  TO  STACK 

01FE 

86 

00 

A 

LDAA 

#$00 

0200 

C6 

0A 

A 

LDAB 

#$0A 

0202 

37 

PSHB 

0203 

36 

PSHA 

MULTIPLIER  TO  STACK 

0204 

34 

£ 

DES 

0205 

BD 

0000 

A 

* 

JSR 

MULT  16 

0208 

B7 

0000 

A 

STAA 

DENDHU 

020S 

F7 

0000 

A 

STAB 

DENDHL 

DIVIDEND 

020E 

EE 

03 

A 

LDX 

3  ,X 

0210 

FF 

0000 

A 

£ 

STX 

DENDLU 

0213 

86 

00 

A 

LDAA 

#$00 

0215 

C6 

03 

A 

LDAB 

#$03 

DIVISOR 

0217 

B7 

0000 

A 

STAA 

DSORU 

021A 

F7 

0000 

A 

* 

STAB 

DSORL 

021D 

BD 

0000 

A 

* 

JSR 

DIV32 

0220 

B6 

0000 

A 

LDAA 

DENDLU 

PUT  ANSWER  INTO  A  &  B 

0223 

F6 

0000 

A 

LDAB 

DENDLL 

* 


* 

************************************************* 

*  FORM  COMPARISON  VALUE  FOR  END  OF  SCAn 

**  SCALE  DIF  FOR  12  BITS 

**  (DIF  *  0FFF/2710) 

*  (VOLT  RANGE/1000  *  4095  BITS/10  VOLTS  =  #  A/D 

************************************************* 

* 


40 


007 

7RTQ  *♦* 

IP  A 

7P  INPUT 

ROUTINE 

*** 

0226 

31 

* 

INS 

0227 

31 

INS 

0228 

31 

INS 

0229 

31 

INS 

022A 

31 

INS 

022B 

37 

PSHB 

022C 

36 

PSHA 

MULTIPLICAN  TO  STACK 

022D 

86 

07 

A 

LDAA 

#$07 

0227 

C6 

77 

A 

LDAB 

(#$77 

0231 

37 

PSHB 

0232 

36 

PSHA 

MULTIPLIER  TO  STACK 

0233 

34 

ft 

DES 

0234 

BD 

0000 

A 

ft 

JSR 

MULT16 

0237 

B7 

0000 

A 

STAA 

DENDHU 

023A 

77 

0000 

A 

STAB 

DENDHL 

DIVIDEND 

023D 

EE 

03 

A 

LDX 

3,X 

0237 

77 

0000 

A 

ft 

STX 

DENDLU 

0242 

86 

27 

A 

LDAA 

#$27 

0244 

C6 

10 

A 

LDAB 

#$10 

DIVISOR 

0246 

B7 

0000 

A 

STAA 

DSORU 

0249 

F7 

0000 

A 

* 

STAB 

DSORL 

024C 

BD 

0000 

A 

ft 

JSR 

DIV32 

0247 

B6 

0000 

A 

LDAA 

DENDLU 

IS  BIT  ANSWER  INTO  A  &  B 

0252 

76 

0000 

A 

LDAB 

DENDLL 

0255 

B7 

001C 

D 

STAA 

FPCMVU 

STORE  A/D  COMPARISON  VALUE 

0258 

77 

001D 

D 

ft 

STAB 

FPCMVL 

025B 

77 

001E 

D 

CLR 

FRSTOF 

025E 

BE 

0000 

D 

* 

LDS 

STX 

RESET  STAK  PNTR 

0261 

7D 

0000 

A 

1ST 

72 

CALLED  FROM  QFIX? 

0264 

27 

03  0269 

BEQ 

J1 

NO 

0266 

7E 

0000 

A 

ft 

JMP 

RTNPT 

TES:  RETURN  TO  QFIX 

0269 

7E 

0000 

A 

J1 

ft 

JMP 

RETINT 

026C 

CE 

0000 

A 

ERROR 

LDX 

#ERRMES 

0267 

86 

01 

A 

LDAA 

#1 

0271 

BD 

0000 

A 

JSR 

PRINT1 

0274 

CE 

0000 

A 

LDX 

#ASCBU7 

0277 

86 

20 

A 

LDAA 

#$20 

0279 

A7 

00 

A 

STAA 

X 

027B 

7E 

007A 

P 

* 

* 

JMP 

7RSTQ1 

* 

XRE7 

KBIN ,  PRINT ,PRINTltBINHI,BINLO,MES30 

XRE7 

MULT1S, DENDHU , DENDHL, DENDLU, DENDLL 

XRE7 

DIV32, ASCBU7, RETINT, LOVECO, HI ECO 

XRE7 

ZINK , DSORU, DSORL, MES31 .ERRMES , RENTE 

XRE7 

72, RTNPT 

* 


41 


FRTQ  ♦**  IP  i  FP  INPOT  ROUTINI  *** 


* 

* 


XDEF  I PHI , I PLO , I P10E , IP10L , FPCMVO , FPCMVL 
XDEF  FRSTQF ,FRSTQ ,RNGCAL , CD,PB ,CU,ZN ,RNG 


0000 

* 

DSCT 

0000 

0002 

A 

STK 

RMB 

2 

0002 

0002 

A 

TP 

RMB 

2 

0004 

0004 

A 

CD 

RMB 

4 

0008 

0004 

A 

PB 

RMB 

4 

000C 

0004 

A 

CO 

RMB 

4 

0010 

0004 

A 

ZN 

RMB 

4 

0014 

0002 

A 

ZEROl 

RMB 

2 

0016 

0001 

A 

DIFHI 

RMB 

1 

001? 

0001 

A 

DIFLO 

RMB 

1 

0018 

0001 

A 

IPHI 

RMB 

1 

0019 

0001 

A 

IPLO 

RMB 

1 

001A 

0001 

A 

IP10B 

RMB 

1 

001B 

0001 

A 

IP10L 

RMB 

1 

001C 

0001 

A 

FPCMVO 

RMB 

1 

001D 

0001 

A 

FPCMVL 

RMB 

1 

001E 

0001 

A 

FRSTQF 

RMB 

1 

001F 

0002 

A 

IP 

RMB 

2 

0021 

0001 

A 

IPHI1 

RMB 

1 

0022 

0001 

A 

IPLOl 

* 

RMB 

1 

01 FC 

A 

ZERO 

EQU 

$01FC 

ADJUSTED  TO  GIVE  PROPER 


14  *  m  \  V  LiPWMWy* 


001  KBIN  ***  KIT-BOARD  INPUT  SUBROUTINE  **♦ 

NAM  KBIN  TER .  5  8-2-79  CIAVELL 

* 

*  TILE  NAMES:  &KBIN  (S)  /KBIN  (R) 

* 

OPT  REI 

* 

TTL  ***  KEY-BOARD  INPUT  SUBROUTINE  ** 

# 

************************************************* 

* 

*  THIS  SUBROUTINE  INPUTS  DATA  FROM  A  16  KEY 

*  KEYBOARD  AND  DISPLAYS  IT  ON  LED'S  AND  STORES 

*  IT  FOR  USE  BY  OTHER  ROUTINES. 

* 

************************************************* 

* 

* 

* 


0000 

* 

BSCT 

0000 

0001 

A 

BLANK 

RMB 

1 

0001 

0006 

A 

ASCNUM 

* 

RMB 

6 

0000 

* 

PSCT 

0000 

03 

A 

TTBL 

FCB 

$03,$9F,$25,$0D,$99,$49,$41.$1F,$01 

0001 

9F 

A 

0002 

25 

A 

0003 

0D 

A 

0004 

99 

A 

0005 

49 

A 

0006 

41 

A 

0007 

IF 

A 

0008 

01 

A 

0009 

09 

A 

FCB 

$09,$11,$C0,$63,$85.$61,$71 

000A 

11 

A 

000B 

C0 

A 

000C 

63 

A 

000D 

85 

A 

000E 

61 

A 

000F 

71 

A 

* 

* 

0010 

B7 

0004 

D 

* 

KBIN 

STAA 

MAXDI3  STORE  SCALE  FACTOR 

0013 

7F 

0012 

D 

CLR 

BINLO 

0016 

7F 

0001 

D 

CLEAR 

CLR 

CHRCNT 

0019 

?F 

0000 

D 

* 

CLR 

DECFL3 

001C 

7F 

0003 

D 

CLR 

BCDCNT 

001F 

7F 

0002 

D 

CLR 

NUMCNT 

0022 

7F 

0011 

D 

CLR 

BINHI 

0025 

CE 

FFFF 

A 

LDX 

#$FFFF  LOAD  DIGIT1S2  WI 

0028 

FF 

000B 

D 

STX 

DIGIT1  BLANKS 

002B 

CE 

EFEF 

A 

LDX 

#$EFEF  FILL  DIGIT3-6  WI 

002E 

FF 

000D 

D 

STX 

DIGIT3  UNDERLINES 

0031 

FF 

000F 

D 

STX 

DIGITS 

0034 

CE 

0000 

A 

LDX 

#0 

43 


002 

KBIN  *♦* 

KEY-BOARD  INPUT  SUBROUTINE  **♦ 

003? 

FF 

0013  D 

STX 

BCDHI 

CLEAR  BCD  BUFFER 

003A 

CE 

2020  A 

LDX 

#$2020 

003D 

DF 

01  B 

STX 

ASCNUM 

CLEAR  ASCII  BUFFER 

0031 

DF 

03  B 

STX 

ASCNUM+2 

0041 

DF 

05  B 

STX 

ASCNUM+4 

0043 

7C 

0012  D 

INC 

BINLO 

TEST  TO  SEE  IF  WE 

0046 

28 

08  0050 

BVC 

LIGHTS 

HAVE  RET  FROM  AN  ERROR 

0048 

?F 

0011  D 

CLR 

BINHI 

IF  SO, 

004B 

?F 

0012  D 

CLR 

BINLO 

004E 

20 

10  0060 

BRA 

BEGIN 

GO  TO  BEGIN 

0050 

BD 

0000  A 

LIGHTS 

JSR 

DISPLA 

DISPLAY  LED'S 

0053 

B6 

0000  A 

LDAA 

P7AP 

READ  KEY-BOARD 

0056 

84 

IF  A 

ANDA 

#$1F 

MASK  UPPER  3  BITS 

0058 

27 

F6  0050 

4c 

BEQ 

LIGHTS 

NO  DATA-LOOP  BACK 

005A 

F6 

0012  D 

LDAB 

BINLO 

TEST  TO  SEE  IF  WE 

005D 

5C 

I NCB 

HAVE  RET  FROM  AN  ERROR 

005E 

29 

B6  0016 

BVS 

CLEAR 

IF  SO,  GO  TO  CLEAR 

0060 

?C 

0001  D 

BEGIN 

INC 

CHRCNT 

INCREMENT  CHRCNT 

0063 

84 

0F  A 

ANDA 

#017 

MASK  OFF  UPPER  4  BITS 

0065 

81 

09  A 

CMPA 

#011 

A  BETWEEN  0  S.9? 

006? 

2F 

1C  0085 

BLE 

NUMBER 

IF  SO,  GO  TO  NUMBER 

0069 

81 

0D  A 

CMPA 

#015 

ELSE,  A=— ? 

006B 

26 

03  0070 

BNE 

JUMP1 

IF  SO, GO  TO  MINUS 

006D 

?E 

0115  P 

JMP 

MINUS 

0070 

81 

0E  A 

JUMP1 

CMPA 

#016 

ELSE,  A  =  .? 

0072 

26 

03  0077 

BNE 

JUMP2 

IF  SO, GO  TO  DECML 

0074 

?E 

012F  P 

JMP 

DECML 

0077 

81 

0B  A 

JUMP2 

CMPA 

#013 

ELSE,  A=CHG? 

0079 

27 

9B  0015 

BEQ 

CLEAR 

IF  SO,  GO  TO  CLEAR 

007B 

81 

0A  A 

CMPA 

#012 

ELSE,  A=ENT? 

007D 

26 

03  0082 

BNE 

JUMP3 

IF  SO,  GO  TO  ENTER 

007F 

?E 

0170  P 

JMP 

ENTER 

0082 

7E 

01 F6  P 

JUMP3 

4c 

JMP 

UGOOF 

0085 

7C 

0002  D 

NUMBER 

INC 

NUMCNT 

INCREMENT  NUMBER  COUNT 

0088 

7C 

0003  D 

INC 

BCDCNT 

INCREMENT  BCD  COUNT 

008B 

C6 

04  A 

LDAB 

#4 

BCDCNT  <=4 

008D 

FI 

0003  D 

CMPB 

BCDCNT 

0090 

2D 

02  0094 

BLT 

UGOF1 

IF  NOT,  GO  TO  UGOOF 

0092 

20 

03  009? 

BRA 

JOMP5 

0094 

7E 

01 F6  P 

UGOF1 

JMP 

UGOOF 

0097 

B7 

0006  D 

JUMP5 

STAA 

TADRL 

STORE  A  IN  TADRL 

009A 

B6 

0011  D 

LDAA 

BINHI 

LOAD  A  WI  ACTUAL  #  OF  DIGI 

* 

BEFORE  DECIMAL  PT. 

0091) 

84 

7F  A 

ANDA 

#$7F 

MASK  OFF  SIGN  BIT 

009F 

SI 

0004  D 

CMPA 

MAXDIS 

TOO  MANY  DIGITS  ENTERED? 

00  A2 

2F 

03  00A? 

BLE 

OKNUM 

00A4 

7E 

01F6  P 

41 

JMP 

UGOOF 

00A? 

B6 

0005  D 

OKNUM 

LDAA 

TADRL 

ELSE,  PUT  CHAR  IN  A 

00AA 

F6 

0003  D 

LDAB 

BCDCNT 

1ST  NUMBER? 

00AD 

Cl 

01  A 

CMPB 

#1 

00AF 

27 

0B  00BC 

BEQ 

BCDST 

IF  SO,  GO  TO  BCDST 

00B1 

C6 

04  A 

LDAB 

#4 

ELSE,  SHIFT  BCD  BUFFER 

00B3 

78 

0014  D 

BCDL 

ASL 

BCDLO 

LEFT  4  BITS 

00B6 

78 

0013  D 

ROL 

BCDHI 

003 

IBIN  *** 

EET-BOARD  INPUT  SUBROUTINE  **♦ 

00B9 

5A 

DECB 

00  BA 

2E 

F7  00B3 

BGT 

BCDL 

00BC 

BB 

0014 

D 

BCDST 

ADDA 

BCDLO 

STORE  #  IN  4  LEAST  SIGN 

00BF 

B7 

0014 

D 

STAA 

BCDLO 

BITS  OF  BCDLO 

00C2 

B6 

0002 

D 

LDAA 

NUMCNT 

00C5 

81 

01 

A 

CMPA 

#1 

00C? 

27 

IB  00E4 

BEQ 

LEDST 

IF  SO,  GO  TO  LEDST 

00C9 

CE 

0010 

D 

IDX 

#DIGIT6 

IF  NOT,  CAL  #  TIMES 

00CC 

80 

02 

A 

SUBA 

#2 

TO  SHIFT  LED  BUFFER 

00CE 

27 

04  00D4 

BEQ 

SECNUM 

00D0 

09 

LEDL1 

DEX 

00D1 

4A 

DECA 

00D2 

26 

FC  00D0 

BNE 

LEDL1 

SHIFT  LED  BUFFER 

00E4 

B6 

0002 

S 

SECNUM 

LDAA 

NUMCNT 

UNTIL  ALL  NUMBERS 

00  D7 

4A 

DECA 

HAVE  BEEN  LEFTSHIFTED 

00D8 

E6 

00 

A 

LEDL2 

LDAB 

X 

ONE  LOCATION 

00DA 

09 

DEX 

00  DB 

E7 

00 

A 

STAB 

X 

00DD 

4A 

DECA 

00DE 

27 

04  00E4 

BEQ 

LEDST 

00E0 

08 

I  NX 

00E1 

08 

I  NX 

00E2 

20 

F4  00D9 

BRA 

LEDL2 

00E4 

C6 

00 

A 

LEDS! 

LDAB 

#$00 

00E6 

F7 

0005 

D 

STAB 

TADRU 

00E9 

FE 

0005 

D 

LDX 

TADRU 

STORE  NEWEST  CHAR 

00EC 

E6 

00 

A 

LDAB 

TBL.X 

IN  LED  BUFFER 

00EE 

F7 

0010 

D 

STAB 

DIGITS 

00  FI 

B6 

0006 

D 

LDAA 

TADRL 

PUT  CHAR  IN  A 

00  F4 

8B 

30 

A 

ADDA 

#960 

CONVERT  IT  TO  ASCII 

00F6 

CE 

0001 

B 

ASCST 

LDX 

#ASCNUM 

00F9 

FF 

0007 

D 

STX 

TASCII 

00FC 

F6 

0007 

D 

LDAB 

TASCII 

00  FF 

F7 

0005 

D 

STAB 

TADRU 

STORE  IN  ASCII  BUFFER 

0102 

F6 

0001 

D 

LDAB 

CHRCNT 

0105 

F7 

0006 

D 

STAB 

TADRL 

0100 

FE 

0005 

D 

LDX 

TADRU 

010B 

A7 

00 

B 

STAA 

ASCNUM-1 

,x 

010D 

86 

01 

A 

LDAA 

#1 

010F 

BD 

0000 

A 

* 

JSR 

GENTIM 

XET  IN  DELAY 

0112 

7E 

0050 

P 

* 

JMP 

LIGHTS 

0115 

F6 

0001 

D 

MINUS 

LDAB 

CHRCNT 

IS  -  THE  FIRST  CHAR? 

0118 

Cl 

01 

A 

CMPB 

#1 

011A 

26 

02  011E 

BNE 

UG0F5 

IF  NOT,  GOT  TO  UGOOF 

011C 

20 

03  0121 

BRA 

JUMPA 

011E 

7E 

01F6 

P 

UGOF5 

JMP 

UGOOF 

0121 

86 

FD 

A 

JUMP  A 

LDAA 

#$FD 

IF  SO,  PUT  -  IN  DIGIT1 

0123 

B7 

000B 

D 

STAA 

DIGIT1 

0126 

96 

80 

A 

LDAA 

#$80 

SET  MSB  OF  BINHI 

0128 

B7 

0011 

D 

STAA 

BINHI 

012B 

96 

2D 

A 

LDAA 

#055 

SEND  OUT  ASCII  MINUS  TO 

012D 

20 

C7  00F6 

* 

BRA 

ASCST 

ASCII  BUFFER 

012F 

86 

01 

A 

DECML 

LDAA 

#1 

0131 

B1 

0001 

D 

CMPA 

CHRCNT 

0134 

26 

05  013B 

BNE 

NF 

45 


004 

KBIN  *♦* 

KEY-BOARD  INPOT  SUBROUTINE  ♦** 

0136 

B7 

0002  D 

STAA 

NUMCNT 

0139 

20 

1C  0157 

BRA 

DECST 

01 3B 

?6 

0000  D 

NP 

L3AB 

DECFL3 

013E 

5D 

TSTB 

013? 

26 

02  0143 

BNE 

UG0F4 

0141 

20 

03  0146 

BRA 

JUMP8 

0143 

7E 

01 F6  P 

DGOP4 

JMP 

UGOOF 

0146 

?6 

000B  D 

JUMP3 

L3AB 

DIGIT1 

0149 

Cl 

FD  A 

CMPB 

#$FD 

014B 

26 

0A  0157 

BNE 

DECST 

014D 

C6 

02  A 

LSAB 

#2 

014? 

PI 

0031  D 

CMPB 

CHRCNT 

0152 

26 

03  0157 

BNE 

DECST 

0154 

B7 

0002  D 

STAA 

NUMCNT 

0157 

F6 

0010  0 

DECST 

LDAB 

DIGIT5 

015A 

C4 

FE  A 

ANDB 

#$FE 

015C 

F7 

0010  D 

STAB 

DIGITS 

015? 

B6 

0011  D 

L3AA 

BINHI 

0162 

BB 

0003  D 

ADDA 

BCDCNT 

0165 

B7 

0011  0 

STAA 

BINHI 

0166 

86 

2E  A 

LDAA 

#$2E 

016A 

7C 

0000  D 

INC 

DECFLG 

016D 

7E 

00F6  P 

* 

JMP 

ASCST 

0170 

7D 

0000  D 

ENTER 

TST 

DECFLG 

IS  DECFLG  SET? 

0173 

26 

03  0173 

BNE 

OKI 

YES -GO  TO  OKI 

0175 

7E 

01 F6  P 

JMP 

UGOOF 

NO-DEC. PT.  NOT  ENTERED 

0178 

B6 

0000  A 

OKI 

LDAA 

FRSTQF 

FLAG  SET? 

017B 

27 

53  0130 

$ 

BEQ 

INTI NP 

NO  GO  TO  INTEGER  INPUT 

♦ 

$ 

DECIMAL 

INPUT  SECTION 

017D 

F6 

0011  D 

LDAB 

BINHI 

#  DIG  BEFORE  DEC.  PT. 

0160 

C4 

7F  A 

* 

ANDB 

#$7F 

MAS!  SIGN  BIT 

0182 

27 

25  01A9 

4 c 

BEQ 

ZEROl 

IF  NO  DIG.  GO  TO  ZEROl 

0184 

B6 

0003  0 

LDAA 

BCDCNT 

0187 

81 

04  A 

CMPA 

*4 

4  #'S  ENTERED? 

0189 

27 

52  01DD 

BEQ 

ASCPR 

YES-  GO  TO  ASCPR 

018B 

81 

03  A 

CMPA 

#3 

016D 

27 

12  01A1 

* 

BEQ 

ZER02 

3  #  'S/PACK  WITH  1-0 

018? 

81 

02  A 

CMPA 

*2 

0191 

27 

12  01A5 

BEQ 

ZERO  3 

2  # 'S/PACE  WITH  2-0'S 

0193 

86 

0C  A 

LDAA 

#12 

OTHERWISE  PACE  WIHT  3-1 

0195 

78 

0014  0 

BCDPAK 

ASL 

BCDLO 

0198 

79 

0013  D 

ROL 

BCDHI 

DO  12  SHIFTS 

019B 

4A 

DECA 

019C 

25 

F7  0195 

* 

BNE 

BCDPAK 

019? 

7E 

01DD  P 

* 

JMP 

ASCPR 

01A1 

86 

04  A 

ZER02 

LDAA 

#4 

PACK  WITH  1-0 

01A3 

20 

F0  0195 

BRA 

BCDPAK 

* 
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005  KB IN  **♦  KEY-BOARD  INPUT  SUBROUTINE  *** 


0145 

86 

08 

4 

ZER03 

LD44 

#8 

PACK  WITH  2-0'S 

014? 

20 

EC  0195 

* 

BR4 

BCDPAX 

0149 

F6 

0003 

D 

ZER01 

LD4B 

BCDCNT 

4  #S  ENTERED? 

014C 

Cl 

04 

4 

CMPB 

#4 

YES=ERROR 

014E 

27 

02  01B2 

BEQ 

HOP 

01B0 

20 

03  01B5 

BRA 

H0P1 

01B2 

?E 

01 F6 

P 

HOP 

* 

JMP 

UGOOF 

01B5 

Cl 

03 

4 

H0P1 

CMPB 

#3 

01B? 

27 

24  01DD 

BEQ 

ASCPR 

01B9 

Cl 

02 

4 

CMPB 

#2 

PACK  WITH  1-0 

01BB 

26 

05  01C2 

BNE 

ZER04 

01BD 

86 

04 

4 

LD44 

#4 

01BF 

7E 

0195 

P 

JMP 

BCDPAX 

01C2 

Cl 

01 

4 

ZER04 

CMPB 

#1 

1  #  ENTERED? 

01C4 

26 

02  01CS 

BNE 

H0P2 

NO-  GO  TO  UGOOF 

01C6 

20 

03  01CB 

$ 

BRA 

H0P3 

00 

o 

H 

?E 

01F6 

P 

H0P2 

4c 

JMP 

UGOOF 

01CB 

86 

08 

4 

H0P3 

LDAA 

#8 

YES-PACK  WITH  2-0'S 

01CD 

?E 

0195 

P 

* 

JMP 

BCDPAX 

* 

*  I NTEGER 

* 

INPUT  SECTION 

01D0 

F6 

0011 

D 

* 

INTINP 

LDAB 

BINHI 

#  OF  DIG  BEFORE  DEC  FT 

01D3 

C4 

?F 

4 

4c 

4NDB 

#$?F 

MASK  SIGN  BIT 

01D5 

FI 

0003 

D 

CMPB 

BCDCNT 

CMP  #  DIG  BEFORE  DEC  PT 

01D8 

27 

03  01DD 

BEQ 

ASCPR 

TO  TOTAL  #  OF  DIGITS, IF 

01D4 

7E 

01 F6 

P 

* 

JMP 

UGOOF 

01DD 

BD 

0000 

4 

ASCPR 

JSR 

PRINT 

PRINT  ASCII  BFFER 

01E0 

B6 

0013 

D 

LDAA 

BCDHI 

01 E3 

F6 

0014 

D 

LDAB 

BCDLO 

01E6 

BD 

0000 

4 

JSR 

BCDBIN 

CONVERT  BCD  TO  BINARY 

01 E9 

F7 

0012 

D 

STAB 

BINLO 

01EC 

F6 

0011 

D 

LDAB 

BINHI 

STORE  BINARY  RESULT 

01EF 

C4 

80 

4 

ANDB 

#$80 

SAVING  MSB  OF  BINHI 

01F1 

IB 

ABA 

IF  SET 

01F2 

B7 

0011 

D 

ST4A 

BINHI 

01F5 

39 

4c 

RTS 

01F6 

CE 

83  FD 

4 

UGOOF 

LDX 

#$83FD 

WRITE  OUT  U-GOOF 

01F9 

FF 

000B 

D 

STX 

DIGIT1 

u- 

01FC 

CE 

4103 

4 

LDX 

#$4103 

01 FF 

FF 

000D 

D 

STX 

DIGIT3 

GO 

0202 

CE 

0371 

4 

LDX 

#$0371 

0205 

FF 

000F 

D 

STX 

DIGIT5 

OF 

0208 

86 

7F 

4 

LDAA 

#$7F 

0204 

B7 

0012 

D 

STAA 

BINLO 

0201) 

?B 

0050 

P 

JMP 

LIGHTS 

* 
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006  KBIN  ***  KIT-BOARD  INPUT  SUBROUTINE  *** 


* 

XREF  DISPIA  tPRI NT ,FRSTQ, BCD3IN 

XREF  TBL, FRSTQF ,P7AP .GENTIM 

* 

* 

* 

XDEF  BINE  I , BINLO,  BCDHI ,  BCDLO, DIGI T0, DIGI 
XDEF  DIGI T3 ,DIGIT4t  DIGI T5, DIGIT6, ASCNUM , 
XDEF  TADRU, TADRL, TTBL, KB I N 

* 

JJ000  DSCT 


0000 

0001 

A 

DECFLG 

RMB 

1 

0001 

0001 

A 

CHRCNI 

RMB 

1 

0002 

0001 

A 

NUMCNT 

RMB 

1 

0003 

0001 

A 

BCDCNT 

RMB 

1 

0004 

0001 

A 

MAXDIG 

RMB 

1 

0005 

0001 

A 

TADRU 

RMB 

1 

0006 

0001 

A 

TADRL 

RMB 

1 

000? 

0002 

A 

TASCII 

RMB 

2 

0009 

0001 

A 

COUNT 

RMB 

1 

000A 

0001 

A 

DIGII0 

RMB 

1 

000B 

0001 

A 

DIGIT1 

RMB 

1 

000C 

0001 

A 

DIGIT2 

RMB 

1 

000D 

0001 

A 

DIGIT3 

RMB 

1 

000E 

0001 

A 

DIGIT4 

RMB 

1 

000F 

0001 

A 

DIGITS 

RMB 

1 

0010 

0001 

A 

DIGITS 

RMB 

1 

0011 

0001 

A 

BINHI 

RMB 

1 

3012 

0001 

A 

BINLO 

RMB 

1 

0013 

0001 

A 

BCDHI 

RMB 

1 

0014 

0001 

A 

BCDLD 

aMB 

1 

* 


* 


ERRORS  00000 


END 


201  PRNT  ***  MAIN  PRINTING  SUBROUTINE  *♦* 


NAM  PRNT  VER  2  4-20-7S  CLAVEL 

* 

*  PILE  NAMES:  &PRNT  (S)  /  PRNT  (R) 

* 

OPT  REL 

* 

TTL  ***  MAIN  PRINTING  SUBROUTINE  *** 

# 

************************************************* 

* 

*  THIS  SUBROUTINE  FORMATS  THE  INPUT  &  OUTPUT 

*  PARAMETER  MESSAGES  AND  DOES  THE  PRINTING. 

* 

************************************************* 

* 

* 


2000 

* 

BSCT 

0000 

0028 

A 

ASCBUF 

* 

RMB 

40 

0000 

* 

* 

PSCT 

0000 

FP 

0000 

D 

PRINT 

STX 

TMESU 

SAVE  »DR  OF  MESSAGE 

0003 

CE 

0000 

B 

LDX 

#ASCBUF 

PUT  ADR  OF  BUF  IN  TADRU 

0006 

FF 

0000 

A 

STX 

TADRU 

0009 

B6 

0000 

A 

LDAA 

TADRL 

000C 

D6 

00 

B 

LDAB 

ASCBUF 

CALLED  FROM  KBIN7 

000E 

Cl 

45 

A 

CMPB 

#$45 

IF  SO,  CLEAR  1ST  FIVE  IOC 

0010 

27 

04  0013 

BEO 

FIVE 

0012 

C6 

28 

A 

LDAB 

#$29 

0014 

20 

02  0019 

BRA 

SETLIM 

IF  NOT,  CLEAR  ENTIRE  40 

0016 

C6 

05 

A 

FIVE 

LDAB 

#5 

WORD  BUFFER 

0018 

IB 

SETLIM 

ABA 

0019 

B7 

0000 

A 

ST  AA 

TADRL 

001C 

86 

20 

A 

LDAA 

#$20 

FILL  BUFFER  VI  BLANKS 

001E 

A7 

00 

A 

BLANKS 

STAA 

X 

0020 

08 

I  NX 

0021 

BC 

0000 

A 

CPX 

TADRU 

0024 

26 

F8  001E 

BNE 

BLANKS 

0026 

Cl 

05 

A 

CMPB 

#5 

CALLED  FROM  KRIN? 

0028 

27 

43  0070 

BEO 

REPRNT 

IF  SO,  GO  TO  REPRNT 

00  2A 

86 

06 

A 

LDAA 

#6 

002C 

CE 

0000 

B 

LDX 

#ASCBUF 

FILL  ASCII  PRINT  BUF 

002F 

C6 

45 

A 

LDAB 

#$45 

WI  E 

0031 

E7 

00 

A 

STAB 

X 

0033 

08 

I  NX 

0034 

C6 

4E 

A 

LDAB 

#$4E 

N 

0036 

E7 

02 

A 

STAB 

X 

0038 

08 

I  NX 

0039 

C6 

54 

A 

LDAB 

#$54 

T 

003B 

E7 

02 

A 

STAB 

X 

003D 

08 

I  NX 

002E 

C6 

45 

A 

LDAB 

#$45 

E 

0040 

E7 

02 

A 

STAB 

X 

0042 

08 

INX 

0043 

C6 

52 

A 

LDAB 

#$52 

R 

0045 

E7 

02 

A 

STAB 

X 

002  PRNT  *** 


MAIN  PR  INTINS  SUBROUTINE  *** 


0047 

08 

I  NX 

0048 

08 

I  NX 

0049 

FF 

0000 

A 

STX 

004C 

FE 

0000 

D 

FILBUF 

LDX 

004  F 

E6 

00 

A 

LDAB 

0051 

4C 

INCA 

0052 

Cl 

3A 

A 

CMPB 

0054 

27 

15  005B 

BEO 

0056 

FE 

0000 

A 

LDX 

0059 

E7 

00 

A 

STAB 

005B 

?C 

0000 

A 

INC 

005E 

7C 

0001 

D 

INC 

0061 

7D 

0001 

D 

1ST 

0064 

26 

03  0069 

BNE 

0066 

7C 

0000 

D 

INC 

0069 

20 

El  004C 

SK10 

$ 

BRA 

006B 

B7 

0002 

D 

COLON 

STAA 

006E 

20 

30  00A0 

BRA 

0070 

B6 

0002 

D 

REPRNT 

LDAA 

0073 

B7 

0000 

A 

STAA 

0076 

C6 

3D 

A 

LDAB 

0078 

FE 

0000 

A 

LDX 

207B 

E7 

00 

B 

STAB 

007D 

SB 

02 

A 

ADDA 

007F 

B7 

0000 

A 

STAA 

0082 

CE 

0000 

A 

LDX 

0085 

FF 

0000 

D 

STX 

0088 

F6 

0000 

A 

LDAB 

008B 

FE 

0000 

D 

XFER 

LDX 

006E 

A6 

03 

A 

* 

LDAA 

0090 

FE 

0000 

A 

LDX 

0093 

A7 

00 

B 

STAA 

0095 

5A 

DECB 

0096 

27 

03  00A0 

BEO 

0098 

7C 

0001 

D 

INC 

0093 

7C 

0000 

A 

INC 

009E 

20 

EB  009B 

BRA 

00A0 

CE 

0000 

B 

WRITE 

LDX 

00A3 

DF 

05 

A 

STX 

00A5 

86 

01 

A 

LDAA 

00A7 

97 

07 

A 

STAA 

00A9 

BD 

B2C3 

A 

JSR 

00AC 

BD 

B2A0 

A 

JSR 

00AF 

39 

RTS 

* 


X  REF 

* 

* 

XDEF 

* 

0000  DSCT 

♦ 

* 


TA  DRU 

TMESU  TRANSFER  MESSAGE  BUFF 

X  TO  PRINT  BUFFER 

UNTIL  COLON  IS  REACHED 
A 

COLON  COLON  FOUND? 

TADRU  IF  NO,  CONTINUE 

X 

TADRL 

TMESL 

TMESL 

SK10 

TMESU 

FILBUF 

COLLOC  SAVE  COLON  LOC 
WRITE  30  TO  PRINT  BUFFER 
COLLOC 

TADRL  POINT  TO  LOC  OF  COLON 
#$3D  PUT  IN  =  SIGN 
TADRU 
ASC3UF , X 
#2 

TA  DRL 

#ASC NUM  GET  ADR  OF  ASCII  » 

TMESU 

CBRCNT 

TMESU  TRANSFER  ASCII  # 

X  TO  ASCBUF 

TADRU 
ASCBUF, X 

WRITB 

TMESL 

TADRL 

XFER 

ttASCBUF  PRINT  OUT  ENTIRE  BUFF 
$05 
#1 
$0? 

?B2C2 

$B2A0 


TADRU, TADRL, CHRCNT , ASCNUM 


COLLOC, ASCBUF, PRINT 


0000  0001  A  TMESU  RMB  1 

0001  0001  A  TMESL  RMB  1 


003  PENT  ***  MAIN  PRINTING  SUBROUTINE 

0002  0021  A  COLLOC  RMB  1 

* 

END 


ERRORS  00000 


*41# 


51 


201  DSPL  ***  LED  DISPLAT  SUBROUTINE  *** 

NAM  DSPL  VER  2  12-14-77 

FILE  NAMES:  S.DSPL  (S)  /  DSPL  (R) 

OPT  REL 

TTL  ***  LED  DISPLAY  SUBROUTINE 


CLA 


* 

* 

$ 


**********^*********$**************************** 

*  SUBROUTINE  TO  DISPLAY  DIGITS  INPUT  VIA  THE 

*  KEYBOARD  ON  TFE  SYSTEMS  LED'S.  CALLED  FROM 

*  KBI N . 

4*******************  ***************************** 

* 


0000 

CE 

0000 

A 

DISPLA 

LDX 

WDIGIT0 

ADDR.  OF  1ST  DIG  -1 

0003 

7F 

0000 

D 

CLR 

DSPCNT 

CLR  DES.PT.  COUNTER 

0005 

96 

01 

A 

LDAA 

#1 

ENABLE  1ST  LED 

0008 

B7 

0000 

A 

STAA 

P9BP 

000B 

5F 

CLRB 

000C 

53 

DI5L0P 

COMB 

ENABLE  ALL  SEGMENTS 

000D 

F7 

0000 

A 

STAB 

P9AP 

0010 

F5 

0000 

D 

LDAB 

DSPCNT 

S  DIGITS  WRITTEN? 

0013 

Cl 

05 

A 

CMPB 

#5 

0015 

25 

01  0013 

BN  I 

NOEXIT 

NO-  DON'T  RETURN 

0017 

39 

$ 

RTS 

OTHERWISE  RETURN 

0018 

08 

NOEXIT 

I  NX 

0019 

E6 

00 

A 

LDAB 

X 

PUT  DIG  ON  LED 

001B 

F7 

0000 

A 

STAB 

P9AP 

001E 

5F 

CLRB 

001F 

5C 

DELAY 

I  NCB 

0020 

26 

FD  001F 

BNE 

DELAY 

0022 

48 

ASLA 

ENABLE  NEXT  LED 

0023 

B7 

0000 

A 

STAA 

P9B? 

0025 

7C 

0000 

D 

INC 

DSPCNT 

INC  COUNTER 

0029 

20 

El  000C 

BRA 

DIGLOP 

LOOP  TO  BEGINNING 

* 

* 

* 

* 

* 


XREF  P9AP ,P9BP,DIGIT0 


0000 

0000  0001  A 

ERRORS  00000 


* 

DSPCNT 


XDEE 

DSCT 

RMB 

END 


DISPLA 


52 


1 


SECTION  III: 

Main  System  Control  Routines 


53 


001 


0000 


RESET  ***  SYSTEM  SET  UP  ROUTINE  ♦** 

NAM  RESET  YER .  26  9-14-79  CLAVELL 

* 

*  FILE  NAMES:  &REST  (S)  /  REST  (R)  / 

* 

OPT  REL 

* 

TTL  ***  SYSTEM  SET  UP  ROUTINE  **♦ 

* 

************************************************* 

* 

*  THIS  ROUTINE  INITIALIZES  ALL  THE  PIA'S  AND  C 

*  AND  THEN  SETS  THE  SYSTEM  TO  ITS  INITIAL  COND 

* 

************************************************* 

* 

* 

* 

ASCT 

* 

***  ASSIGN  PI  A  LOCATIONS  *** 

* 


7000 

A 

P1AP 

EQU 

$7000 

7001 

A 

P1BP 

EQU 

$7001 

A/D  &  MULTIPLEXER 

7002 

A 

P1AC 

EQU 

$7002 

7003 

A 

P1BC 

* 

EQU 

$7003 

7004 

A 

P2AP 

EQU 

$7004 

STATUS  LED'S 

7005 

A 

P2BP 

EQU 

$7005 

&  D/A 

7006 

A 

P2AC 

EQU 

$7006 

7007 

A 

P2BC 

* 

EQU 

$7007 

7008 

A 

P3AP 

EQU 

$7008 

7009 

A 

P3BP 

EQU 

$7009 

STATUS  LED  DISPLAYS 

700A 

A 

P3AC 

EQU 

$700A 

700B 

A 

P3BC 

* 

EQU 

$700B 

700C 

A 

P4AP 

EQU 

$700C 

700D 

A 

P4BP 

EQU 

$700D 

YALVES 

700E 

A 

P4AC 

EQU 

$700E 

700F 

A 

P4BC 

* 

EQU 

$7007 

7020 

A 

P5AP 

EQU 

$7020 

7021 

A 

P5BP 

EQU 

$7021 

DEPTH  &  TEMP 

7022 

A 

P5AC 

EQU 

$7022 

7023 

A 

P5BC 

* 

EQU 

$7023 

7024 

A 

P6AP 

EQU 

$7024 

7025 

A 

P6BP 

EQU 

$7025 

LED-CYCLE 

7026 

A 

P6AC 

EQU 

$7026 

OUTPUTS  TO  E.T.  TIMER 

7027 

A 

P6BC 

* 

EQU 

$7027 

7010 

A 

P7AP 

EQU 

$7010 

7011 

A 

P7BP 

EQU 

$7011 

KEYBOARD  INPUT 

7012 

A 

P7AC 

EQU 

$7012 

&  CLOCK  INPUT 

7013 

A 

P7BC 

* 

EQU 

$7013 

701C 

A 

P8AP 

EQU 

$701C 

701D 

A 

P8BP 

EQU 

$70  ID 

6-LED  DISPLAY 
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002  RESET  ***  SYSTEM  SET  OP  ROUTINE  *** 


70  IS 

A  P8AC 

EQU 

$701E 

701F 

A  P8BC 

* 

EQU 

?701F 

0000 

* 

DSCT 

0000 

0001 

A  TRH 

RMB 

1 

LOC.  POR 

YEAR  VALUE 

0001 

0001 

A  YRL 

RMB 

1 

0002 

0001 

A  DAYH 

RMB 

1 

LOC.  FOR 

DAY  VALOE 

0003 

0001 

A  DAYL 

RMB 

1 

* 


*  :::  PR03RAM  SECTION  ::: 

* 

0000  PSCT 

* 

♦  **  RESET  &  INITIALIZE  ALL  PIA'S  ** 


♦ 

**  FLAGS  AND  COUNTERS  ** 

0000 

8E 

0F90 

A 

START 

* 

LDS 

#$0F90 

INIT .  THE  STACK 

0003 

0F 

4 

SEI 

SET  INTERRUPT  MASK 

0004 

C6 

20 

A 

LDAB 

#32 

0006 

86 

00 

A 

LDAA 

#$00 

INIT.  ALL  PIA'S 

0008 

CE 

7000 

A 

LDX 

#P1AP 

000B 

A7 

00 

A 

LOOP1 

STAA 

X 

FILL  WITH  0'S 

000D 

08 

I  NX 

000E 

5A 

DECB 

000F 

26 

FA  000B 

* 

BNE 

LOOP1 

0011 

86 

F0 

A 

LDAA 

#$F0 

PIA  1  (PA0-7,PB0-3: INPUTS) 

0013 

B7 

7001 

A 

* 

STAA 

PI  BP 

( PB4-7  sOUTPUTS ) 

0016 

86 

FF 

A 

LDAA 

#$FF 

0018 

B7 

7004 

A 

STAA 

P2AP 

ALL  OUTPUTS 

001B 

B7 

7005 

A 

* 

STAA 

P2BP 

001E 

B7 

7008 

A 

STAA 

P3AP 

ALL  OUTPUTS 

0021 

B7 

7009 

A 

* 

STAA 

P3BP 

0024 

B7 

700C 

A 

STAA 

P4AP 

ALL  OUTPUTS 

0027 

B? 

700D 

A 

* 

STAA 

P4BP 

00 2A 

B7 

7021 

A 

STAA 

P5BP 

PA0-7: INPUTS 

♦ 

* 

PB0-7 : 

OUTPUTS 

00  2D 

B7 

7024 

A 

STAA 

P6AP 

ALL  OUTPUTS 

0030 

B7 

7025 

A 

* 

STAA 

P6BP 

♦ 

* 

PIA  7s 

ALL  INPUTS 

0033 

B7 

701C 

A 

STAA 

P8AP 

0036 

B7 

701D 

A 

* 

STAA 

P8BP 

ALL  OUTPUTS 

♦ 

* 

♦*  SET 

UP  CONTROL 

REGISTERS  ** 

0039 

C6 

34 

A 

LDAB 

#$34 

003B 

86 

06 

A 

* 

LDAA 

#$06 
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003  RESET  **♦  SYSTEM  SET  OP  ROUTINE  *** 


003D 

77 

7002 

4 

ST4B 

P1AC 

0040 

B7 

7003 

A 

♦ 

STAA 

P1BC 

0043 

B7 

7022 

4 

♦ 

* 

ST44 

P5AC 

0046 

B7 

7012 

A 

STAA 

P7AC 

0049 

77 

7013 

A 

* 

STAB 

P7BC 

004C 

B7 

701 E 

4 

STAA 

P8AC 

004F 

B7 

7017 

4 

* 

STAA 

P8BC 

0052 

86 

0D 

4 

L0A4 

#$0D 

CA1&CA2 ,CB1&CB2  SET  UP 

0054 

B7 

7004 

A 

STAA 

P3AC 

FOR  NEG.  EDGE  &  UNMASKED 

0057 

B7 

700B 

4 

STAA 

P3BC 

THESE  ARE  FOR  OVER-RIDE 

♦ 

FLAG  INTERRUPTS 

005A 

B7 

700E 

A 

STAA 

P4AC 

005D 

B7 

7007 

4 

0|B 

STAA 

P4BC 

0060 

B6 

7008 

A 

LDAA 

P3AP 

DUMMY  READS 

0063 

B6 

7009 

A 

LD4A 

P3BP 

TO  CLR  INTERRUPT 

0066 

B6 

700C 

A 

LDAA 

P4AP 

FLAGS 

0069 

B6 

7000 

4 

* 

LDAA 

P4BP 

006C 

86 

06 

A 

LDAA 

#200000110  CA1  &CA2  MASKED 

006E 

B7 

7006 

4 

* 

STAA 

P2AC 

0071 

86 

07 

4 

LDAA 

#$07 

CB1  UNMASKED  (OVR  RESET) 

0073 

B7 

7007 

4 

* 

STAA 

P2BC 

CB2  MASKED 

0076 

B6 

7004 

4 

LDAA 

P2AP 

DUMMY  READS 

0079 

B6 

7005 

A 

* 

LDAA 

P2BP 

007C 

C6 

3E 

4 

LD4B 

#$3E 

007E 

77 

7026 

A 

STAB 

P6AC 

SET  CONTROL  REG 

0081 

C6 

36 

4 

LDAB 

#$36 

FOR  E.T.  CONTROL 

0083 

77 

7027 

4 

* 

STAB 

P6BC 

0086 

86 

1C 

A 

LDAA 

#$1C 

CB1  MASKED  (GO  INTERRUPT) 

0088 

B7 

7023 

4 

♦ 

STAA 

P5BC 

CB2  UNMASKED  (HALT  INTERRU 

008B 

86 

60 

A 

♦ 

LDAA 

#201100000  LIFT  PEN  &  SCAN  OFF 

008D 

B7 

7005 

4 

* 

STAA 

P2BP 

0090 

86 

25 

4 

LDAA 

#200100101  SET  VALVES:  V1A.V2A.V3B 

0092 

B7 

700C 

4 

* 

STAA 

P4AP 

0095 

86 

03 

4 

LDAA 

#3 

1.5  SEC  DELAY 

0097 

BD 

0000 

4 

* 

JSR 

GENTIM 

0094 

77 

700C 

A 

CLR 

P4AP 

RESET  TIMER 

009D 

86 

48 

A 

LDAA 

#210101000  SET  VALVES:  V7B,V8B,V6B 

0097 

B7 

7000 

4 

* 

STAA 

P4BP 

0042 

86 

03 

4 

LDAA 

#3 

0044 

BO 

0000 

4 

JSR 

GENTIM 

* 
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004  RESET  ***  SYSTEM  SET  OP  ROUTINE  *♦* 


00A7 

7? 

700D 

A 

£ 

CLR 

P4BP 

RESET  TIMER 

00AA 

86 

C0 

A 

LDAA 

#$C0 

SET  CYCLE  LED 

00AC 

B7 

7024 

A 

* 

STAA 

P6AP 

TO  0 

00AF 

7F 

7025 

A 

CLR 

P6BP 

C  LR  •  E  •  T  • 

00B2 

7F 

701 D 

A 

£ 

CLR 

P8BP 

OFF  LED  SEG 

* 

ft 

•  •  • 

•  •  • 

CLEAR  ALL 

FLAGS  : : : 

00B5 

7F 

0030 

A 

CLR 

POLFLG 

00B8 

7F 

0300 

A 

CLR 

NOMBYH 

00BB 

7F 

0000 

A 

CLR 

NUMBYL 

00BE 

7F 

0009 

D 

CLR 

PRXFLG 

00C1 

7F 

000A 

D 

CLR 

ACDFLS 

00C4 

7F 

0008 

D 

CLR 

RCLFLG 

00C7 

7F 

000D 

D 

CLR 

VAFLG 

00CA 

7F 

000E 

D 

CLR 

VBFLG 

00CD 

7F 

000F 

D 

CLR 

RESTFG 

00D0 

7F 

0010 

D 

CLR 

TIMFLG 

00D3 

7F 

0012 

D 

CLR 

CNTR2 

00  D6 

7F 

0000 

A 

CLR 

ASCBUF 

00D9 

7F 

0000 

A 

CLR 

OVR 

00DC 

7F 

0000 

A 

CLR 

FRSTOF 

DEC. /INTEGER  : 

00DF 

7F 

0000 

A 

CLR 

SAMPLE 

USED  IN  COMPT 

N  tl  •• 

00  E2 

7F 

0000 

A 

$ 

CLR 

ERFLAG 

00  E5 

0E 

CLI 

* 


00E6 

86 

0F 

A 

LDAA 

0018 

B7 

7025 

A 

STAA 

00EB 

BD 

0000 

A 

JSR 

00EE 

C6 

00 

A 

LDAB 

00F0 

F7 

7025 

A 

STAB 

00  F3 

BD 

0000 

A 

JSR 

00F6 

86 

01 

A 

LDAA 

00  F8 

B7 

7025 

A 

STAA 

00FB 

BD 

0000 

A 

JSR 

00FE 

F7 

7025 

A 

STAB 

0101 

BD 

0000 

A 

JSR 

0104 

BD 

0000 

A 

JSR 

0107 

BD 

0000 

A 

JSR 

010A 

BD 

0000 

A 

JSR 

010D 

BD 

0000 

A 

* 

JSR 

0110 

C6 

28 

A 

LDAB 

0112 

CE 

0000 

A 

LDX 

0115 

FF 

003B 

D 

STX 

0118 

CE 

0013 

D 

LDX 

011B 

FF 

003D 

D 

* 

STX 

011E 

FE 

003B 

D 

LDX 

0121 

A6 

00 

A  BOOT 

LDAA 

0123 

FE 

003D 

D 

LDX 

0126 

A7 

00 

A 

STAA 

0128 

08 

I  NX 

0129 

FF 

003D 

D 

STX 

012C 

FE 

003B 

D 

LDX 

#$0F 

P6BP  SET  E.T.  TO  1  SSC. 
CT 
#0 

P6BP 

CT  DUMMY  DIGIT 

#1  LSD  =  1 

P6BP 
CT 

P6BP  SET  OTHER  DIGITS 

CT  TO  0 

CT 

CT 

CT 

CT 

#40  BOOT  ERROR  MESG 

#MESER  INTO  RAM 

TMES 

NMESERR 

TIMES 

TMES 

0,X 

TIMES 

0,X 

TIMES 

TMES 
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[05 

RESET  *** 

SYSTEM  SET 

UP  ROUTINE 

*** 

012F 

08 

I  NX 

0130 

FF 

003B 

D 

STX 

TMES 

0133 

5A 

DECB 

0134 

26 

EB  0121 

* 

BNE 

BOOT 

0136 

7D 

0000 

A 

1ST 

NUMBYL 

0139 

26 

16  0151 

* 

BNE 

TABLE 

013B 

CE 

0000 

A 

LDX 

#TTBL1 

BOOT  IN  7-SEG  TABLE 

013E 

FF 

003B 

D 

STX 

TMES 

0141 

CE 

0010 

B 

LDX 

#TBL1 

0144 

FF 

003D 

D 

STX 

TIMES 

0147 

C6 

0A 

A 

LDAB 

#10 

0149 

7C 

0000 

A 

INC 

NUMBYL 

014C 

FE 

003B 

D 

LDX 

TMES 

014F 

20 

D0  0121 

* 

BRA 

BOOT 

0151 

B6 

0000 

A 

TABLE 

LDAA 

NUMBYL 

0154 

81 

02 

A 

CMPA 

#2 

0156 

27 

17  016F 

BEQ 

OUT 

0158 

7C 

0000 

A 

INC 

NUMBYL 

0159 

C6 

10 

A 

LDAB 

#16 

BOOT  IN  OTHER  TABLE 

015D 

CE 

0000 

A 

LDX 

#TTBL 

0160 

FF 

003B 

D 

STX 

TMES 

0163 

CE 

0000 

B 

LDX 

#TBL 

0166 

FF 

003D 

D 

STX 

TIMES 

0169 

FE 

003B 

D 

LDX 

TMES 

016C 

7E 

0121 

P 

JMP 

BOOT 

016F 

7F 

0000 

A 

OUT 

* 

CLR 

NUMBYL 

0172 

CE 

0000 

A 

LDX 

#MES1 

1  ST  MESSAGE:  YEAR? 

0175 

BD 

0000 

A 

* 

JSR 

PRINT 

0178 

86 

04 

A 

LDAA 

#4 

TAKE  IN  DATA 

017A 

BD 

0000 

A 

JSR 

KBIN 

CONV ,  TO  BIN 

017D 

B6 

0000 

A 

LDAA 

BINLO 

S.  STORE 

0180 

F6 

0000 

A 

LDAB 

BINEI 

0183 

B7 

0001 

D 

STAA 

YRL 

0186 

F7 

0000 

D 

£ 

STAB 

YRH 

0189 

CE 

0000 

A 

LDX 

#MES2 

ASK  FOR  JULIAN  DATE 

018C 

BD 

0000 

A 

* 

JSR 

PRINT 

018F 

86 

04 

A 

LDAA 

#4 

0191 

BD 

0000 

A 

JSR 

KBIN 

INPUT 

0194 

B6 

0000 

A 

LDAA 

BINLO 

0197 

F6 

0000 

A 

LDAB 

BINEI 

019A 

B7 

0004 

D 

STAA 

DAYL0 

019D 

F7 

0005 

D 

* 

STAB 

DAYE0 

01A0 

BD 

0000 

A 

JSR 

SUBS 

SPACE 

01A3 

CE 

0000 

A 

LDX 

#MES3 

ASK  OP.  TO  SET  CLOCK 

01A6 

C6 

02 

A 

LDAB 

#2 

01 A8 

F7 

0000 

A 

STAB 

BLOCK 

01AB 

BD 

0000 

A 

JSR 

PRINT1 

01AE 

BD 

0000 

A 

♦ 

JSR 

SUB3 

SPACE 
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06  RESET  ♦**  SYSTEM  SET  DP  ROUTINE  *** 


01B1 

BD 

0000 

A 

* 

* 

* 

JSR 

TIME 

DISPLAY  TIME  ON  LED'S 
UNTIL  GO  PUSHED 

01B4 

7E 

0000 

A 

* 

JMP 

INIT 

** 

* 

* 

$ 

***  CHECK  IF  “ 

GO"  BUTTON  HAS  BEEN  PUSHED 

01B7 

B6 

7021 

A 

RETSET 

LDAA 

P5BP 

DUMMY  READ 

01BA 

B6 

7023 

A 

GOLOOP 

LDAA 

P5BC 

POLL  GO  BUTTON 

01BD 

2A 

FB  01BA 

BPL 

GOLOOP 

NOT  PUSHED-LOOP 

* 

OTHERWISE  JMP  TO 

01BF 

7F 

0000 

A 

CLR 

INTFLG 

MAIN  CONTROL  PROGM 

01C2 

7E 

0000 

A 

JMP 

PROGM 

♦ 


* 

* 

X REP  TI ME , P R I  NT , MES 1 , MES 2 , MES3 , PROGM 

XREF  BINLO.BINHI , ASCBUF,GENTIMf PRINT1 
XREF  NOMBYH , NUMBYL , POIFLG , OTR , CT , FRSTQF 

XREF  SAMPLE  t  BLOCK  t  EBI N  t  ERFLAG 

XREF  MESER, INTFLG , INIT,SUB3,TTBL,TTBL1 

* 

* 

♦ 

XDEF  P1AP,P1BP,P1AC,P1BC,P2AP,P2BP,P2AC 
XDEF  P3AP ,P3BP ,P3AC ,P3BC ,P4AP ,P4BP ,P4AC 
XDEF  P5AP ,P5BP , P5AC ,P5BC , P6AP , P6BP ,P6AC 

XDEF  ??AP  fP7BP ,P7AC ,P?BC ,PBAP,P8BP ,P8AC 
XDEF  YRH , YRL , DA YH , DAYL , EMPFLG 

XDEF  TMFLG, PRXFLG , ACDFLG , RCLFLG . SC  NFLG 

XDEF  CNTR1 , CNTR2 , START ,RETSET ,MESERR 

XDEF  P2BC  f P4BC  t P6BC , P8BC  f  TIMFLG 

XDEF  TMES , TIMES , TBL , TBL1 , DAYL0 , DA YH0 

* 

* 

0004  DSCT 

* 


0004 

0001 

A 

DAYL0 

RMB 

1 

0005 

0001 

A 

DAYH0 

RMB 

1 

0006 

0001 

A 

EMPFLG 

RMB 

1 

0007 

0001 

A 

TMFLG 

RMB 

1 

0008 

0001 

A 

RCLFLG 

RMB 

1 

0009 

0001 

A 

PRXFLG 

RMB 

1 

000A 

0001 

A 

ACDFLG 

RMB 

1 

000B 

0001 

A 

SCNFLG 

RMB 

1 

000C 

0001 

A 

STDFLG 

RMB 

1 

000D 

0001 

A 

VAFLG 

RMB 

1 

000E 

0001 

A 

VBFLG 

RMB 

1 

000F 

0001 

A 

RESTFG 

RMB 

1 

0010 

0001 

A 

TIMFLG 

RMB 

1 

0011 

0001 

A 

CNTR1 

RMB 

1 

0012 

0001 

A 

CNTR2 

RMB 

1 

0013 

0028 

A 

MESERR 

RMB 

40 

003B 

0002 

A 

TMES 

RMB 

2 

003D 

0002 

A 

TIMES 

RMB 

2 

001  I NIT  ***  INITIALIZATION  SUBROUTINE 

NAM  INIT  FER .  £=14-79^  CIAVIL 

♦ 

*  FILE  NAMES:  &INIT  (S)  /  INIT  (R)  / 

* 

OPT  REL 

* 

TTL  ***  INITIALIZATION  SUBROUTINE  *** 

* 

ft************************************************ 

* 

*  THIS  SUBROUTINE  INITIALIZES  THE  INSTRUMENT  P 

*  AND  INPUTS  PARAMETER  DATA. 

* 

**************************#****> ****************** 
* 

0000  BSCT 

* 


0000 

0002 

A 

STCN1H 

RMB 

2 

ZN  STD  CONC.  BUFFER 

0002 

0002 

A 

STCN2H 

RMB 

2 

CD 

0004 

0002 

A 

STCN3H 

RMB 

2 

PB 

0006 

0002 

A 

STCN4H 

* 

RMB 

2 

CD 

0000 

* 

PSCT 

0000 

7F 

0011 

D 

* 

INIT 

CLR 

ZINX 

0003 

7F 

0012 

D 

CLR 

VPRECT 

0006 

?F 

0000 

A 

CLR 

F2 

0009 

7F 

0003 

D 

CLR 

INTFL3 

000C 

?C 

0003 

D 

* 

INC 

INTFLO 

000F 

CE 

00  DA 

P 

LDX 

#A0 

INITIALIZE  JUMP  TABLE 

0012 

FF 

000S 

B 

STX 

J0 

IN  BASE  SECTION 

0015 

CE 

00FC 

P 

LDX 

»A1 

0018 

FF 

000A 

B 

STX 

J0+2 

001B 

CE 

011E 

P 

LDX 

#A2 

001E 

FF 

000C 

B 

STX 

J0.+4 

0021 

CE 

013A 

P 

LDX 

#A3 

0024 

FF 

000E 

B 

STX 

J0+6 

002? 

CE 

0156 

P 

LDX 

#A4 

002A 

FF 

001? 

B 

STX 

J0+8 

002D 

CE 

0179 

P 

LDX 

*A5 

0030 

FF 

0012 

B 

STX 

J0+10 

0033 

CE 

01A4 

P 

LDX 

#A6 

0036 

FF 

0014 

B 

STX 

J0+12 

0039 

CE 

01 D4 

P 

LDX 

#A7 

003C 

FF 

0016 

B 

STX 

J0+14 

003F 

CE 

01 F5 

P 

LDX 

#A8 

0042 

FF 

0018 

B 

STX 

J0+16 

0045 

CE 

0221 

P 

LDX 

#A9 

0048 

FF 

001 A 

B 

STX 

J0+18 

004B 

CE 

0243 

P 

LDX 

#A10 

004E 

FF 

001C 

B 

STX 

J0+20 

0051 

CE 

025F 

P 

LDX 

*A11 

0054 

FF 

001E 

B 

STX 

J0+22 

005? 

CE 

027B 

P 

LDX 

#A12 

005A 

FF 

0020 

B 

STX 

J0+24 

005D 

CE 

02A6 

P 

LDX 

#A13 

202  I0IT  ***  INITIALIZATION  SUBROUTINE  *** 


0060 

?F 

3022 

B 

STX 

J0+26 

0063 

CE 

02CC 

P 

LOX 

#A14 

0066 

FF 

0024 

B 

STX 

J0+28 

0069 

CE 

32F7 

P 

LOX 

#A15  ~ 

—  — 

006C 

FF 

0026 

B 

STX 

J0+30 

006F 

CE 

0310 

P 

LOX 

#A16 

0072 

FF 

0028 

B 

STX 

J0+32 

0075 

CE 

0343 

P 

LOX 

#A17 

3078 

FF 

002A 

B 

STX 

J0  +  34 

007B 

CE 

0350 

P 

LOX 

#A18 

007E 

FF 

002C 

B 

STX 

J0+36 

0081 

CE 

0397 

P 

LOX 

#A19 

0084 

FF 

002E 

B 

STX 

J0+3e 

0087 

CE 

03C1 

P 

LOX 

#  A20 

008A 

FF 

0030 

B 

STX 

J0+40 

0080 

CE 

03F0 

P 

LOX 

#A21 

0090 

FF 

0032 

B 

STX 

J0+42 

0093 

CE 

041 A 

P 

LOX 

#A22 

0096 

FF 

0034 

B 

STX 

J0+44 

0099 

CE 

043F 

P 

LOX 

#A23 

009C 

FF 

0036 

B 

STX 

J0+46 

009F 

CE 

0459 

P 

LDX 

#A24 

00A2 

FF 

0038 

B 

STX 

J0+48 

00A5 

CE 

0000 

A 

LDX 

#FRSTO 

00A8 

FF 

003A 

B 

STX 

J0+50 

00AB 

CE 

048E 

P 

LDX 

#RENTR 

00AE 

FF 

003C 

B 

STX 

J3+52 

0031 

CE 

04  A  B 

P 

LDX 

#A2? 

00B4 

FF 

003E 

B 

STX 

J0+54 

00B7 

CE 

34CC 

P 

LDX 

#A28 

00BA 

FF 

0040 

B 

* 

STX 

J0+56 

00BO 

7E 

0000 

A 

* 

* 

JMP 

FRSTO 

GET  IP  &  FP 

00C0 

7F 

0000 

A 

RETINI 

* 

CLR 

P4AP 

RESET  TIMER 

00C3 

CE 

0000 

A 

* 

LDX 

#MES 14 

00C6 

C6 

04 

A 

LDAB 

#4 

00C8 

F7 

0000 

A 

STAB 

BLOCK 

SYSTEM  I NIT .  MESG. 

00CB 

BO 

0000 

A 

JSR 

SUB3 

00CE 

BD 

0000 

A 

JSR 

SUB3 

0001 

BD 

0000 

A 

# 

JSR 

PRINT1 

0004 

BD 

0000 

A 

JSR 

SOBS 

00D7 

BD 

0000 

A 

4c 

JSR 

S0B3 

00OA 

CE 

0000 

A 

A0 

LDX 

#MES 15 

BEGIN  ASKING 

0000 

BD 

0000 

A 

JSR 

PRINT 

VP  QUESTIONS 

00E0 

86 

03 

A 

LDAA 

#3 

S. 

00E2 

BD 

0000 

A 

JSR 

KBIN 

SET  INPUT  VALUES 

00E5 

B6 

0000 

A 

LDAA 

BCDHI 

00E8 

F6 

0000 

A 

LDAB 

BCDLO 

00EB 

B7 

0006 

D 

STAA 

FPHGE 

00EE 

F7 

0007 

D 

STAB 

VPHOL 

HG  PLATTING  TIME 

00F1 

BO 

0000 

A 

JSR 

SUB3 

HO  PLATTING  TIME 
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* 


00F4 

?D 

0000 

A 

TST 

F2 

00F? 

2? 

03  00FC 

BEO 

A1 

00  F9 

?E 

0000 

A 

if. 

JMP 

RTNPT 

00FC 

CE 

0000 

A  A1 

LDX 

#MES1? 

00FF 

BD 

0000 

A 

JSR 

PRINT,  . 

0102 

86 

03 

A 

LDAA 

0104 

BD 

0000 

A 

JSR 

KB  I  Nr 

010? 

B6 

0000 

A 

LDAA 

BCDHI 

010A 

F6 

0000 

A 

LDAS 

BCDLO 

010D 

B? 

0003 

D 

STAA 

VPSAMH 

0110 

F7 

0009 

D 

STAB 

VPSAML 

0113 

BD 

0000 

A 

if 

JSR 

SUBS 

0116 

7D 

0000 

A 

TST 

F2 

0119 

2? 

03  011E 

BEQ 

A2 

011B 

7E 

0000 

A 

if 

JMP 

RTNPT 

011E 

CE 

0000 

A  A2 

LDX 

NMES19 

0121 

BD 

0000 

A 

JSR 

PRINT 

0124 

86 

01 

A 

LDAA 

#1 

0126 

BD 

0000 

A 

JSR 

KBIN 

0129 

B6 

0000 

A 

LDAA 

BCDLC 

012C 

B7 

000A 

D 

STAA 

VPVS1 

012F 

BD 

0000 

A 

4c 

JSR 

SUB3 

0132 

7D 

0000 

A 

1ST 

F2 

0135 

27 

03  013A 

BEQ 

A3 

0137 

?E 

0000 

A 

4c 

JMP 

RTNPT 

013A 

CE 

0000 

A  A3 

LDX 

#MES 19 

013D 

BD 

0000 

A 

JSR 

PRINT 

0140 

86 

01 

A 

LDAA 

#1 

0142 

BD 

0000 

A 

JSR 

KBIN 

0145 

B6 

0000 

A 

LDAA 

BCDLO 

0148 

B7 

000B 

D 

STAA 

VPVS2 

014B 

BD 

0000 

A 

4c 

JSR 

SUB3 

014E 

7D 

0000 

A 

TST 

F2 

0151 

2? 

03  0153 

BEQ 

A4 

0153 

7E 

0000 

A 

if 

JMP 

RTNPT 

0156 

CE 

0000 

A  A4 

LDX 

#MES20 

0159 

BD 

0000 

A 

JSR 

PRINT 

015C 

86 

03 

A 

LDAA 

#3 

015E 

BD 

0000 

A 

JSR 

KBIN 

0161 

B6 

0000 

A 

LDAA 

BCDHI 

0164 

F6 

0000 

A 

LDAB 

BCDLO 

0167 

B? 

0004 

D 

STAA 

SCANTH 

016A 

F7 

0005 

D 

STAB 

SCANTL 

016D 

BD 

0000 

A 

4> 

JSR 

SUB3 

0170 

7D 

0000 

A 

TST 

F2 

0173 

2? 

03  0178 

BEQ 

A5 

0175 

?E 

0000 

A 

4c 

JMP 

RTNPT 

0178 

CE 

0000 

A  A5 

LDX 

#MES21 

CALLED  FROM  OFIX? 
NO:  CONT. 

TES:  RETURN  TO  OFIX 


SAMPLE  TIME 


VALVE  DELAY  TIME 


VALVE  DELAY2  TIME 


SCAN  TIME 
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01?B 

BD 

0000  A 

JSR 

017E 

86 

03  A 

LDAA 

0180 

BD 

0000  A 

JSR 

0183 

B6 

0000  A 

* 

LDAA 

0186 

91 

78  A 

SMPA 

0188 

25 

0B  0195 

BCS 

0184 

CE 

0000  A 

LDX 

018D 

BD 

0000  A 

JSR 

0190 

BD 

0000  A 

JSR 

0193 

20 

E3  0179 

* 

BRA 

0195 

48 

STA3 

ASLA 

0196 

B7 

000C  D 

STAA 

0199 

BD 

0000  A 

* 

JSR 

019C 

7D 

0000  A 

TST 

019F 

27 

03  01A4 

BEQ 

01A1 

7E 

0000  A 

JMP 

01A4 

CE 

0000  A 

AS 

LDX 

01A7 

BD 

0000  A 

JSR 

01AA 

86 

03  A 

LDAA 

01AC 

BD 

0000  A 

JSR 

01AF 

B6 

0000  A 

* 

LDAA 

01B2 

91 

01  A 

CMPA 

01B4 

23 

04  01BA 

* 

BLS 

01BS 

91 

79  A 

CMPA 

01B8 

25 

0B  01C5 

♦ 

BCS 

01BA 

CE 

0000  A 

ER10 

LDX 

01BD 

BD 

0000  A 

JSR 

01C0 

BD 

0000  A 

JSR 

01C3 

20 

DF  01A4 

$ 

BRA 

01C5 

49 

STA1 

ASLA 

01C6 

B7 

000D  D 

STAA 

01C9 

BD 

0000  A 

* 

JSR 

01CC 

7D 

0000  A 

1ST 

01CF 

27 

03  01D4 

BEO 

01D1 

7E 

0000  A 

JMP 

01 D4 

CE 

0000  A 

A7 

LDX 

01D7 

BD 

0000  A 

JSR 

01DA 

96 

01  A 

LDAA 

01DC 

BD 

0000  A 

JSR 

01DF 

B6 

0000  A 

LDAA 

01E2 

B7 

0000  A 

STAA 

01E5 

BD 

0000  A 

4 

JSR 

01 E8 

7D 

0000  A 

TST 

01EB 

27 

03  01F0 

BEO 

01ED 

7E 

0000  A 

♦ 

JMP 

PRINT 

#3  FLUSHING  TIME 

KB  I N 

6INLO 

#120 

STAS 

#MES  65 
PRINT1 
SUBS 
A5 

*2 

VPFLSL 

SUB3 

F2 

A6 

RTNPT 

#MES  22 

PRINT 

#3 

KBIN  STD  ADD  TIME 

BINLO  IN  BIN  (0-255  SEC  MAX ^ 

#1  #  MUST  BE  >  1  &  <  120 

ER10 

#120 

STA1 

#MES65  ERROR  MESG 
PR INTI 
SUB3 
AS 

"A”  *  2 

VPSTD 

SUB3 

F2 

A? 

RTNPT 
#MES  40 

PRINT  MAKE  ACID  ADDITION? 

#1 

KBIN 
BINLO 
AC DELS 
SUB3 

F2 

SI 

RTNPT 


6S 
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01F0  ?D  0030 

A  SI 

TST 

01F3  27  2C  0221 

* 

BEQ 

01F5  CE  0330 

A  AS 

LDX 

01F8  BO  0300 

A 

JSR 

01FB  86  03 

A 

LDAA 

01FD  BO  0030 

A 

JSR 

0200  B6  0330 

A 

£ 

LDAA 

0203  81  78 

A 

CMPA 

0205  25  0B  0212 

* 

BCS 

0207  CE  0330 

A 

LDX 

320A  BD  0300 

A 

JSR 

0200  BD  0300 

A 

JSR 

3210  20  E3  01F5 

* 

BRA 

0212  48 

STA2 

ASLA 

0213  B7  000E 

D 

STAA 

0216  BD  0300 

A 

$ 

JSR 

0219  7D  0300 

A 

TST 

021C  27  03  0221 

BEQ 

021E  7E  0030 

A 

$ 

JMP 

0221  CE  0300 

A  A9 

LDX 

0224  BD  0030 

A 

JSR 

0227  86  03 

A 

LDAA 

0229  BD  0000 

A 

JSR 

022C  B6  0000 

A 

LDAA 

022F  F6  0030 

A 

LDAB 

0232  B7  003F 

D 

STAA 

0235  F7  0010 

D 

STAB 

0238  BD  0000 

A 

$ 

JSR 

023B  7D  0000 

A 

TST 

023E  27  03  0243 

BEQ 

0240  7E  0030 

A 

$ 

JMP 

0243  CE  0030 

A  A10 

LDX 

0246  BD  0000 

A 

JSR 

0249  86  01 

A 

LDAA 

024B  BD  0000 

A 

JSR 

024E  B6  0000 

A 

LDAA 

0251  B7  0011 

D 

STAA 

0254  BD  0030 

A 

$ 

JSR 

0257  7D  0030 

A 

TST 

025A  27  03  025F 

BEQ 

025C  7E  0000 

A 

$ 

JMP 

025F  CE  0030 

A  All 

LDX 

0262  BD  0030 

A 

JSR 

0265  86  01 

A 

LDAA 

0267  BD  0030 

A 

JSR 

026A  B6  0000 

A 

LDAA 

026D  B7  0030 

A 

STAA 

0270  BD  0330 

A 

JSR 

ACDFLG 

A9 

MAKE  ACID  ADD.? 
NO:  DON'T  ADD 

#MES23 

PRINT 

#3 

KBIN 

BINLO 

ACID  ADD  TIME 
INPUT  BIN 
(0-255  SEC) 

#120 

STA2 

#MES55 
PR  INTI 
SUB3 

AS 

VPACID 

SUB3 

*2 

F2 

A9 

RTNPT 

#MES24 

PRINT 

#3 

KBIN 

C02  PURGE  TIME 

BCDEI 

BCDLC 

VPPRGH 

VPPRGL 

SUB3 

F2 

A10 

RTNPT 

#MES25 

PRINT 

#1 

KBIN  ZINK  ANALYSIS? 
BINLO  YES  =1 , NO=0 

ZINK 
SUB3 

F2 

All 

RTNPT 

#MES2S 

PRINT 

#1  RECIRCULATE  MODE? 

KBIN  YES=1 , NO=0 

BINLO 

RCLFL3 

SUB3 
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* 


0273 

7D 

0000 

A 

TST 

F2 

0276 

27 

03  027B 

BEQ 

A12 

0278 

7E 

0000 

A 

* 

JMP 

RTNPT 

027B 

CE 

0000 

A 

A12 

LDX 

#MES27 

027E 

BD 

0000 

A 

JSR 

PRINT 

0281 

86 

01 

A 

LDAA 

#1 

0283 

BD 

0000 

A 

JSR 

ESI  N 

0286 

B6 

0000 

A 

£ 

LDAA 

BINLO 

0289 

81 

01 

A 

CMPA 

#1 

028B 

2E 

0B  0293 

£ 

BGT 

STA 

Z28D 

CE 

0000 

A 

LDX 

#MES65 

0290 

BD 

0300 

A 

JSR 

PRINT1 

0293 

BD 

0000 

A 

JSR 

SUB3 

0296 

20 

E3  027B 

£ 

BRA 

A12 

0298 

B7 

0012 

D 

STA 

STAA 

VPRECY 

029B 

BD 

0000 

A 

£ 

JSR 

SUB3 

029E 

7D 

0000 

A 

TST 

F2 

02A1 

27 

03  02A5 

BEO 

A13 

02A3 

7E 

0000 

A 

£ 

JMP 

RTNPT 

02A6 

7C 

0000 

A 

A13 

£ 

INC 

FRSTOF 

02A9 

CE 

0000 

A 

LDX 

#MES7 

02AC 

BD 

0000 

A 

JSR 

PRINT 

02AF 

86 

03 

A 

LDAA 

#3 

02B1 

BD 

0000 

A 

JSR 

EBIN 

02E4 

B6 

0000 

A 

LDAA 

BINHI 

02B7 

FS 

0000 

A 

LDAB 

BINLO 

02BA 

97 

02 

B 

STAA 

STCN2B 

02BC 

D7 

03 

B 

STAB 

STCN2H+1 

02BE 

BD 

0000 

A 

£ 

JSR 

SUB3 

02C1 

7D 

0000 

A 

TST 

F2 

02C4 

27 

06  02CC 

BEO 

A14 

02CS 

7F 

0000 

A 

CLR 

FRSTOF 

02C9 

7E 

0000 

A 

£ 

JMP 

RTNPT 

02CC 

7C 

0000 

A 

A14 

INC 

FRSTOF 

02CF 

CE 

0000 

A 

LDX 

#MES9 

02D2 

BD 

0000 

A 

JSR 

PRINT 

02D5 

86 

03 

A 

LDAA 

#3 

02D7 

BD 

0000 

A 

JSR 

KBIN 

02DA 

B6 

0000 

A 

LDAA 

BINHI 

02DD 

F6 

0000 

A 

LDAB 

BINLO 

02E0 

97 

04 

B 

STAA 

STCN3H 

02E2 

D7 

05 

B 

STAB 

STCN3H+1 

2  2E4 

BD 

0000 

A 

£ 

JSR 

SUB3 

02E7 

7D 

0000 

A 

TST 

F2 

02EA 

27 

0B  02F? 

BEO 

A15 

02EC 

7F 

0000 

A 

CLR 

FRSTOF 

02EF 

7E 

0000 

A 

JMP 

RTNPT 

STD  ADD  CYCLE  ft 

MUST  BE  >  1 
ERROR  MESSG 

DEC.  INPUT 

CD  STD  CONC. 


PB  STD  CONC. 
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* 


02F2 

7D 

0011 

D 

1ST 

02F5 

26 

26  031D 

$ 

BNE 

02F7 

7C 

0000 

A 

A15 

INC 

02FA 

CE 

0000 

A 

LDX 

02FD 

BD 

0000 

A 

JSR 

0300 

86 

03 

A 

LDAA 

0302 

BD 

0000 

A 

JSR 

0305 

B6 

0000 

A 

LDAA 

0308 

F6 

0000 

A 

LDAB 

030B 

97 

06 

B 

ST  AA 

030D 

D7 

07 

B 

STAB 

030F 

BD 

0000 

A 

JSR 

0312 

7D 

0000 

A 

TST 

0315 

27 

2C  0343 

BEO 

0317 

7F 

0000 

A 

CLR 

031A 

7E 

0000 

A 

$ 

JMP 

031D 

?C 

0000 

A 

A16 

INC 

0320 

CE 

0000 

A 

LDX 

0323 

BD 

0000 

A 

JSR 

0326 

86 

03 

A 

LDAA 

0328 

BD 

0000 

A 

JSR 

032B 

B6 

0000 

A 

LDAA 

032E 

F6 

0000 

A 

LDAB 

0331 

97 

00 

B 

STAA 

0333 

D7 

01 

B 

STAB 

0335 

BD 

0000 

A 

JSR 

0338 

7D 

0000 

A 

TST 

033B 

27 

05  0343 

BEO 

033D 

7F 

0000 

A 

CLR 

0340 

7E 

0000 

A 

* 

JMP 

0343 

7C 

0000 

A 

* 

A17 

INC 

0346 

CE 

0000 

A 

LDX 

0349 

BD 

0000 

A 

JSR 

034C 

86 

01 

A 

LDAA 

034E 

BD 

0000 

A 

JSR 

0351 

B6 

0000 

A 

LDAA 

0354 

84 

7F 

A 

ANDA 

0356 

F6 

0000 

A 

LDAB 

0359 

B7 

0002 

A 

STAA 

035C 

F7 

0003 

A 

STAB 

035F 

BD 

0000 

A 

$ 

JSR 

0362 

7D 

0000 

A 

TST 

0365 

27 

06  036D 

BEO 

0367 

7F 

0000 

A 

CLR 

036A 

7E 

0000 

A 

if 

JMP 

036D 

7C 

0000 

A 

A18 

INC 

0370 

CE 

0000 

A 

LDX 

0373 

BD 

0000 

A 

JSR 

0376 

86 

01 

A 

LDAA 

ZINK 
A 16 

FRSTOF 

#MES10 

PRINT 

#3  CU  STB 

KBIN 

BINHI 

BINLC 

STCN4E 

STCN4H+1 

SUB? 

F2 

A17 

FRSTOF 

RTNPT 

FRSTOF 

#MES11 

PRINT 

#3  ZN  STD 

KBIN 

BINHI 

BINLO 

STCN1H 

STCN1H+1 

SUBS 

F2 

A17 

FRSTOF 

RTNPT 


FRSTOT 

#MES?0  CD  LOWER  LIMIT 
PRINT 
#1 

KBIN 

BINHI 

#$?F  MASK  SION  BIT 

BINLO 

CD+2 

CD+3 

SUB? 

F2 

A1S 

FRSTOF 

RNG  RECALCULATE  RANGES 

FRSTOF 

#MES?1  CD  HIGH  LIMIT 
PRINT 
#1 
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0378 

BD 

0000 

A 

JSR 

037B 

B6 

0000 

A 

LDAA 

037E 

84 

7F 

A 

ANDA 

0380 

F6 

0000 

A 

LDAB 

0383 

B7 

0000 

A 

STA  A 

0386 

F7 

0001 

A 

STAB 

0389 

BD 

0000 

A 

* 

JSR 

038C 

7D 

0000 

A 

TST 

038F 

27 

06  03 

97 

BEQ 

0391 

7F 

0000 

A 

CLR 

0394 

7E 

0000 

A 

£ 

JMP 

0397 

?C 

0000 

A 

A19 

INC 

039A 

CE 

0000 

A 

LDX 

039D 

BD 

0000 

A 

JSR 

03A0 

86 

01 

A 

LDAA 

03A2 

BD 

0000 

A 

JSR 

03A5 

B6 

0000 

A 

LDAA 

03A8 

84 

7F 

A 

ANDA 

03AA 

F6 

0000 

A 

LDAB 

03AD 

B7 

0002 

A 

STAA 

03B0 

F7 

0003 

A 

STAB 

03B3 

BD 

0000 

A 

JSR 

03B6 

7D 

0000 

A 

TST 

03B9 

27 

06  03C1 

BEQ 

03BB 

7F 

0000 

A 

CLR 

03BE 

7E 

0000 

A 

$ 

JMP 

03C1 

?C 

0000 

A 

A20 

INC 

03C4 

CE 

0000 

A 

LDX 

03C7 

BD 

0000 

A 

JSR 

03CA 

86 

01 

A 

LDAA 

03CC 

BD 

0000 

A 

JSR 

03CF 

B6 

0000 

A 

LDAA 

03D2 

84 

7F 

A 

ANDA 

03D4 

F6 

0000 

A 

LDAB 

03E7 

B7 

0000 

A 

STAA 

03DA 

F7 

0001 

A 

STAB 

03DD 

BD 

0000 

A 

$ 

JSR 

03E0 

7D 

0000 

A 

TST 

03E3 

27 

0B  03F0 

BEO 

03E5 

7F 

0000 

A 

CLR 

03E8 

7E 

0000 

A 

* 

JMP 

03EB 

7D 

0011 

D 

1ST 

03EE 

26 

4F  043F 

£ 

BNE 

03F0 

7C 

0000 

A 

A21 

INC 

03F3 

CE 

0000 

A 

LDX 

03F5 

BD 

0000 

A 

JSR 

03F9 

86 

01 

A 

LDAA 

03FB 

BD 

0000 

A 

JSR 

03FE 

B6 

0000 

A 

LDAA 

0401 

84 

7F 

A 

ANDA 

0403 

F6 

0000 

A 

LDAB 

KBIN 

BINHI 

#$7F 

BINLO 

CD 

CD+1 

SUB3 

F2 

A19 

FRSTOF 

RNG 

FRSTOF 

#MES?2  PB  LOWER  LIMIT 

PRINT 

#1 

KBIN 

BINHI 

#$7F 

BINLO 

PB+2 

PB+3 

SUB3 

F2 

A20 

FRSTOF 

RNG 

FRSTOF 

#MES73  PB  UPPER  LIMIT 
PRINT 
#1 

KBIN 

BINHI 

#$7F 

BINLO 

PB 

PB+1 

SUB3 

F2 
A  21 

FRSTOF 

RNG 

ZINK  ZINC  ANALYSIS? 

A23  YES:  GO  TO  A23 

FRSTOF 

#MES74  CU  LOWER  LI*IT 
PRINT 
#1 

KBIN 

BINHI 

#$7F 

BINLO 
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0405 

B7 

0002 

A 

STAA 

CU+2 

0409 

F7 

0003 

A 

STAB 

CU+3 

040C 

BD 

0000 

A 

* 

JSR 

SUBS 

040F 

7D 

0000 

A 

TST 

F2 

0412 

27 

06  041A 

BEQ 

A22 

0414 

7F 

0000 

A 

CLR 

FRSTOF 

0417 

7E 

0000 

A 

* 

JMP 

RNG 

041A 

?C 

0000 

A 

A22 

INC 

FRSTOF 

041D 

CE 

0000 

A 

LDX 

#MES75 

CU 

UPPER 

LIMIT 

0420 

BD 

0000 

A 

JSR 

PRINT 

0423 

86 

01 

A 

LDAA 

#1 

0425 

BD 

0000 

A 

JSR 

KBIN 

0428 

B6 

0000 

A 

LDAA 

BINHI 

042B 

84 

7F 

A 

ANDA 

#$7F 

042D 

F6 

0000 

A 

LDAB 

EINLO 

0430 

B7 

0000 

A 

STAA 

CU 

0433 

F7 

0001 

A 

STAB 

CU+1 

0436 

BD 

0000 

A 

$ 

JSR 

SUB3 

0439 

7F 

0000 

A 

CLR 

FRSTOF 

043C 

7E 

0000 

A 

* 

JMP 

RNG 

043F 

7C 

0000 

A 

A23 

INC 

FRSTOF 

0442 

CE 

0000 

A 

LDX 

#MES76 

ZN 

LOWER 

LIMIT 

0445 

ED 

0000 

A 

JSR 

PRINT 

0448 

86 

01 

A 

LDAA 

#1 

044A 

BD 

0000 

A 

JSR 

KBIN 

044D 

B6 

0000 

A 

LDAA 

BINHI 

0450 

94 

7F 

A 

ANDA 

#$?F 

0452 

F6 

0000 

A 

LDAB 

BINLO 

0455 

B7 

0002 

A 

STAA 

ZN+2 

0458 

F7 

0303 

A 

STAB 

ZN+3 

045B 

BD 

0300 

A 

* 

JSR 

SUB3 

045E 

7D 

0000 

A 

TST 

F2 

0461 

27 

06  0459 

BEO 

A24 

0463 

7F 

0000 

A 

CLR 

FRSTOF 

0466 

7E 

0000 

A 

* 

JMP 

RNG 

0469 

7C 

0000 

A 

A24 

INC 

FRSTOF 

046C 

CE 

0000 

A 

LDX 

#MES77 

ZN 

UPPER 

LIMIT 

046F 

BD 

0000 

A 

JSR 

PRINT 

0472 

86 

01 

A 

LDAA 

#i 

0474 

BD 

0000 

A 

JSR 

KBIN 

0477 

B6 

0000 

A 

LDAA 

BINHI 

047A 

84 

7F 

A 

ANDA 

#$7F 

047C 

F6 

0000 

A 

LDAB 

BINLO 

047F 

B7 

0000 

A 

STAA 

ZN 

0462 

F7 

0001 

A 

STAB 

ZN+1 

0485 

BD 

0000 

A 

JSR 

SUB3 

0468 

7F 

0000 

A 

CLR 

FRSTOF 

048B 

7E 

0000 

A 

♦ 

JMP 

RNG 

048E 

CE 

0000 

A 

* 

RENTR 

LDX 

#MES78 
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210  INIT  ***  INITIALIZATION  SUBROUTINE  *** 


0491 

BD 

0000 

A 

JSR 

PRINT 

0494 

86 

03 

A 

LDAA 

#3 

0496 

BD 

0000 

A 

JSR 

XBIN 

FILLING  TIME 

0499 

B6 

0000 

A 

LDAA 

BINLO 

(0-255  SEC  MAX) 

049C 

48 

ASLA 

*2 

049D 

B7 

0002 

D 

STAA 

RSVFIL 

04A0 

BD 

0000 

A 

JSR 

SUB3 

04A3 

7D 

0000 

A 

TST 

F2 

CHX  IF  CALLED  FROM 

04A6 

27 

03  04AB 

BEQ 

A27 

OTHER  ROUTINE. 

04A8 

7E 

0000 

A 

$ 

JMP 

RTNPT 

04AB 

CE 

0000 

A 

A27 

LDX 

#MES80 

04AE 

BD 

0000 

A 

JSR 

PRINT 

04B1 

96 

01 

A 

LDAA 

#1 

WANT  MED  EXCHG? 

04B3 

BD 

0000 

A 

JSR 

XBIN 

04B6 

B6 

0000 

A 

LDAA 

BINLO 

04B9 

B7 

0000 

D 

STAA 

MEDEX 

04BC 

BD 

0000 

A 

$ 

JSR 

SUB3 

04BF 

7D 

0000 

A 

1ST 

F2 

04C2 

27 

03  04C7 

BEO 

S2 

04C4 

?E 

0000 

A 

Jjt 

JMP 

RTNPT 

04C? 

7D 

0000 

D 

S2 

1ST 

MEDEX 

MED  EXCHG? 

04CA 

27 

ID  04E9 

* 

BEO 

N1 

NO:  SXIP 

04CC 

CE 

0000 

A 

A28 

LDX 

NMES81 

MED  EXCBG  FLUSHING 

04CF 

BD 

0000 

A 

JSR 

PRINT 

TIME  (0-120  SEC) 

04D2 

86 

02 

A 

LDAA 

# 2 

04D4 

BD 

0000 

A 

JSR 

XBIN 

04D7 

B6 

0000 

A 

LDAA 

BINLO 

04DA 

48 

ASLA 

(*2) 

04DB 

B7 

0001 

D 

STAA 

MEXCH5 

04EE 

BD 

0000 

A 

aQe 

JSR 

SUB3 

04E1 

7D 

0000 

A 

1ST 

F2 

04E4 

27 

03  04E9 

BEO 

N1 

04E6 

7E 

0000 

A 

$ 

JMP 

RTNPT 

0419 

CE 

0000 

A 

N1 

LDX 

#MES 12 

04EC 

C6 

02 

A 

LDAB 

#2 

PRINT  GO  MESG 

04EE 

F7 

0000 

A 

STAB 

BLOCE 

04F1 

BD 

0000 

A 

JSR 

SUB3 

04F4 

BD 

0000 

A 

JSR 

SUB3 

04F7 

BD 

0000 

A 

JSR 

PRINT1 

04FA 

BD 

0000 

A 

JSR 

SUB3 

04FD 

BD 

0000 

A 

♦ 

JSR 

SUB3 

0500 

7E 

0000 

A 

* 

JMP 

RETSET 

RETURN  TO  RESET 

XREF 

MES7 ,MES9 . MES80 ,MESei 

XREF 

MESH, 

MES12,^ES14,MES16,MES17 

XREF 

MES18, 

MES19 , MES20 , MES21 ,MES22  ,  VES2 

XREF 

MES27, 

ACDFLG , MES40 ,MES10 ,MES24 

XREF 

MES25, 

MES26 ,MES78,SUB3 ,XBIN, FRSTOF 

XREF 

FRSTO, 

BLOCX, PR  INTI, PRINT 

011  INIT  INITIALIZATION  SUBROUTINE  *** 


XREF 

BCDHI,BCDL0,BINHI,BINL0,P4AP,P2BP 

XREF 

P2BC,RETSET,RCLFLG,MES65,CU,PB,CD 

XREF 

ZN,MES70,MES?1,MES?2,MES73,MES?4 

♦ 

XREF 

MES75, MES76 , MES77 , RNG , F2 , RTNPT 

* 

XDEF 

SC A N TH, S CANT L,STCN1H,STCN2E, RSVFIL 

XDEF 

STCN3R , STCN4H , VPHGH , VPHGL ,MEDEX 

XDEF 

VPSAMH , VPS AML,V?VS1,VPVS2,MEXCBG 

XDEF 

VPFLSL, VPSTD, VPACID, VPPRGK, VPPRSL 

XDEF 

ZINK  .VPRECY, I  NIT, RETINT, RENTS 

XDEF 

INTFLG, J0, A0, A1 , A2 , A2 , A4, A5,  A6, A27 

XDEF 

A?,A8, A9,A10,A11,A12,A13,A14,A15,A2 

XDEF 

A16.A17, A18,A19,A20,A21,A22,A23,A24 

0000 

* 

* 

DSCT 

0000 

0001 

A 

MEDEX 

RMB 

1 

0001 

0001 

A 

MEXCHG 

RMB 

1 

0002 

0001 

A 

RSVFIL 

RMB 

1 

0003 

0001 

A 

INTFLG 

RMB 

1 

0004 

0001 

A 

SCANTH 

RMB 

1 

0005 

0001 

A 

SCANIL 

RMB 

1 

0006 

0001 

A 

VPHGH 

RMB 

1 

000? 

0001 

A 

VPHGL 

RMB 

1 

0008 

0001 

A 

VPSAMH 

RMB 

1 

0009 

0001 

A 

VPSAML 

RMB 

1 

000A 

0001 

A 

VPVS1 

RMB 

1 

000S 

0001 

A 

VPVS2 

RMB 

1 

000C 

0001 

A 

VPFL5L 

RMB 

1 

000D 

0001 

A 

VPSTD 

RMB 

1 

000E 

0001 

A 

VPACID 

RMB 

1 

000F 

0001 

A 

VPPRGH 

RMB 

1 

0010 

0001 

A 

VPPRGL 

RMB 

1 

0011 

0001 

A 

ZINK 

RMB 

1 

0012 

0001 

A 

VPREOY 

* 

RMB 

1 

0008 

BSCT 

0008 

003A 

A 

J0 

RMB 

58 

* 


ERRORS  00000 


END 


001  PROS  ***  SIS  MM  CONTROL  PROGRAM  *** 


* 

NAM 

PROG 

TER 

.  51  3-7-80  CLAVELL 

♦ 

* 

FILE  NAMES: 

S.PROG  (S) 

/  PROG  (R)  / 

£ 

OPT 

REL 

lit 

TTL 

*** 

SYSTEM 

CONTROL  PROGRAM  *** 

************** ****** ***************************** 

«Ar 

•W 

* 

THIS  IS  THE 

MAIN 

CONTROL 

PROGRAM  FOR  THE  ASV 

*  INSTRUMENT  SYSTEM  FOLLOWING  SYSTEM  INITIALIZATI 


* 

************************************************* 


* 

0000 

* 

PSCT 

0000 

C0 

A  TTBL1 

FCB 

$C0,$?9,$A4,$30,$99,$92,$03,$F8,$00 

0001 

79 

A 

0002 

A4 

A 

0003 

30 

A 

0004 

99 

A 

0005 

92 

A 

0006 

03 

A 

0007 

F8 

A 

0008 

00 

A 

0009 

IS 

A 

* 

* 

0000 

* 

DSCT 

0000 

07D0 

A  DATA 

RMB 

2000  STARTING  ADDR.  OF 

* 

DATA  BUFFER 

* 

000 A 

* 

PSCT 

*  J  s:  MACRO  DEFINITION  ::: 

* 


ETM  MACR 


\0  LDAB  #$0F  LOAD  COMAND 

STAB  P5BP 

JSR  CT 

CLRA  DUMMY  DIGIT 

STAA  PSBP 

JSR  CT 

LDAA  \1 

LOAD  BCD  DIGITS 

ANDA  *$0F 

MASK  UPPER  4  BITS 

STAA  P5BP 
JSR  CT 

STROBE  IN  LSD 

LDAA  \1 

LOAD  DIGITS  AGAIN 

LSRA 

ROTATE  RIGHT  4  TIMES 

LSRA 

TO  GET  2  ND  DIGIT 

LSRA 

LSRA 

INTO  POSITION 

STAA  PSBP 
JSR  CT 

LDAA  \2 

STROBE  2ND  DIGIT 

73 


002  PROG  ***  SYSTEM  CONTROL  PROGRAM  *** 

ANOA  #$0F 

STAA  PS BP  3RD  DIGIT 

JSR  CT 

LDAA  \2 

LSRA 

LSRA 

LSRA 

LSRA 

STAA  PSBP  STROBE  4TB  DIGIT 
JSR  CT 

LDAA  #$00  'POT  0'S  IN  DIGITS 

STAA  PSBP  5  &  6 

JSR  CT 

JSR  CT 

INDM 

* 

ETMS  MACR 
* 

LDAA  #$0F  LOAD  COMAND 

STAA  PSBP 
JSR  CT 

LDAB  #$00  LOAD  IN  BCD  DIGITS 

STAB  PSBP 

JSR  CT 

JSR  CT 

LDAA  \0 

STAA  P5BP 

JSR  CT 

LDAA  \1 

STAA  PSBP 

JSR  CT 

STAB  PSBP 

JSR  CT 

JSR  CT 

JSR  CT 

ENDM 

* 

* 

* 


000A 

7F 

0000 

A 

PROGM 

CLR 

CNTR1 

CLEAR  FLAGS 

000D 

7P 

0000 

A 

CLR 

SCNFLG 

0010 

7F 

07DE 

D 

CLR 

SEC 

0013 

7F 

07DF 

D 

CLR 

MIN 

0016 

7F 

07E0 

D 

CLR 

HR 

0019 

7F 

0000 

A 

CLR 

CSOMF 

001C 

7  F 

0000 

A 

CLR 

HALT? 

001P 

7F 

07  DC 

D 

CLR 

MIN0 

0022 

7F 

07DD 

D 

CLR 

BR0 

0025 

7F 

07D1 

D 

CLR 

PORGFG 

0028 

7F 

07D0 

D 

4 

CLR 

DATFG 

DAY  INC  FLAG 

0022 

B6 

0000 

A 

LDAA 

P6AP 

DUMMY  READ 

002E 

CE 

0000 

A 

LDI 

#TIMBUF 

INITIALIZE  POINTER 

0031 

FF 

0000 

A 

4 

STY 

TMBUF 

OSED  IN  COMPT 

0034 

CE 

0000 

D 

LDX 

#DATA 

0037 

FF 

07E1 

D 

STX 

EPDATA 

CALCULATE  NEXT  TO 
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♦ 

LAST 

ADDR.  IN  DATA 

003A 

F6 

07E2 

D 

LDAB 

EPDATA+1 

BUFFER.  USED  FOR 

0030 

B6 

07E1 

D 

* 

LDAA 

EPDATA 

BUFFER  OVER  FLOW  CEE 

0040 

CB 

C8 

A 

ADDB 

#$C8 

ADD  1992  TO  DATA 

0042 

89 

0? 

A 

* 

ADCA 

#$07 

0044 

B7 

07E1 

D 

STAA 

EPDATA 

004? 

F7 

07E2 

D 

* 

STAB 

EPDATA+1 

004A 

7D 

0000 

A 

1ST 

RCLFLG 

004D 

2? 

2C  007B 

* 

BEQ 

LEDCT 

004F 

BD 

0200 

A 

* 

JSR 

CLOCK 

0052 

B6 

0020 

A 

LDAA 

TBCDS 

GET  TIME  OF  FIRST 

0055 

B7 

07DB 

D 

STAA 

SEC0 

SAMPLE 

0058 

B6 

0000 

A 

LDAA 

TBCDM 

005B 

B? 

07DC 

D 

STAA 

MIN0 

005E 

B6 

0020 

A 

LDAA 

TBCDB 

0061 

B7 

07DD 

D 

* 

STAA 

BR0 

0064 

7F 

0000 

A 

CLR 

P4AP 

006? 

?F 

0000 

A 

CLR 

P4BP 

006A 

86 

10 

A 

LDAA 

#$10 

ACT  V3A 

006C 

B? 

0000 

A 

* 

STAA 

P4AP 

006F 

66 

04 

A 

LDAA 

#4 

0071 

BD 

0000 

A 

* 

JSR 

GENTIM 

0074 

86 

60 

A 

LDAA 

#$60 

FILLING  &  SAMPLE 

0076 

B7 

0002 

A 

STAA 

P3AP 

LED'S  ON 

0079 

20 

05  0080 

* 

BRA 

FILL 

007B 

86 

A0 

A 

LEDCT 

LDAA 

#$A0 

FILLING  &  CONT. 

007D 

B7 

0000 

A 

* 

STAA 

P3AP 

LED'S  ON 

0080 

86 

01 

A 

FILL 

LDAA 

#$01 

0082 

B7 

0000 

A 

* 

STAA 

P4BP 

FILL  PUMP  ON 

0085 

B6 

0000 

A 

LDAA 

RSVFIL 

FILLING  TIME 

0088 

BD 

0000 

A 

* 

JSR 

GENTIM 

008B 

7F 

0200 

A 

CLR 

P4BP 

FILL  PUMP  OFF 

008E 

B6 

0000 

A 

LDAA 

P3AP 

0091 

84 

C0 

A 

ANDA 

#$C0 

FILLING  LED  OFF 

0093 

B7 

0000 

A 

♦ 

STAA 

P3AP 

0096 

B6 

0002 

A 

♦ 

LDAA 

ACDFLG 

ADD  ACID? 

0099 

27 

26  00C1 

* 

BEQ 

SKIP3 

NO:  SKIP 

009S 

B6 

0000 

A 

LDAA 

PSAP 

ACID  PUMP  ON 

009Z 

8B 

10 

A 

ADDA 

#$10 

00A0 

B7 

0000 

A 

* 

STAA 

P3AP 

00  A3 

B6 

0000 

A 

LDAA 

P3BP 

LED  ON 

00A6 

8B 

40 

A 

ADDA 

#$40 
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00  A8 

B7 

0000 

A 

* 

STAA 

P3BP 

00AB 

B6 

0000 

A 

LDAA 

TPACID 

GET  ADDITION  TIME 

00AE 

BD 

0000 

A 

* 

JSR 

GENTIM 

TIME  IT 

00B1 

B6 

0000 

A 

LDAA 

P3BP 

00  B4 

84 

BF 

A 

ANDA 

#$BF 

LED  OFF 

00B6 

B7 

0000 

A 

£ 

STAA 

P3BP 

00B9 

B6 

0000 

A 

LDAA 

P3AP 

00BC 

84 

EF 

A 

ANDA 

#$EF 

ACID  POMP  OFF 

00BE 

B7 

0000 

A 

* 

STAA 

P3AP 

00C1 

C6 

02 

A 

SKIP3 

LDAB 

#2 

INITIALIZE  DATA 

00C3 

F7 

0000 

A 

* 

STAB 

CNTR2 

VALID  FLAG 

00C6 

7D 

07D1 

D 

RTN 

1ST 

PORGFG 

PORGE  DONE? 

00C9 

26 

FB  00C6 

* 

BNE 

RTN 

NO  :  LOOP 

00CB 

7D 

0000 

A 

1ST 

EALTF 

HALT  FLAG  SET? 

00CE 

27 

03  00D3 

BEQ 

RTN1 

NO:  CONT 

00D0 

BD 

0000 

A 

* 

JSR 

BALT 

YES:  JOMP  TO  HALT  ROOT 

00D3 

7F 

07D7 

D 

RTN1 

CLR 

VBFLG 

CLR  STD  &  ACID  FLAGS 

00D6 

7F 

07D6 

D 

CLR 

VAFLG 

00D9 

7F 

0000 

A 

CLR 

P4AP 

00DC 

B6 

0000 

A 

LDAA 

P4BP 

CLR  VALVES 

00DF 

84 

03 

A 

ANDA 

#$03 

00E1 

B7 

0000 

A 

* 

STAA 

P4BP 

00E4 

CE 

07D0 

A 

LDX 

#2000 

00E7 

FF 

07E3 

D 

STI 

CNTHLD 

CLEAR  DATA  BOFFER 

00  El 

CE 

0000 

D 

LDX 

#DATA 

00ED 

FF 

07D2 

D 

STX 

TDATA 

00P0 

4F 

CLRA 

FILL  WITH  0'S 

00  PI 

FE 

07D2 

D 

DC  LR 

LDX 

TDATA 

00T4 

A7 

00 

A 

STAA 

0,x 

00  F6 

08 

I  NX 

00F7 

FF 

07D2 

D 

STX 

TDATA 

00  FA 

FE 

07E3 

D 

LDX 

CNTHLD 

00  FD 

09 

DEX 

00FE 

FF 

07E3 

D 

STI 

CNTHLD 

0101 

26 

EE  00F1 

* 

BNE 

DCLR 

DONE  ? 

0103 

7F 

07D9 

D 

CLR 

TADO 

0106 

F6 

0000 

A 

LDAB 

CNTR1 

0109 

F7 

07DA 

D 

* 

STAB 

TADL 

GET  CYCLE  NO. 

010C 

FE 

07D9 

D 

LDX 

TADO 

CONVERT  TO  7  SEG. 

010F 

A6 

00 

A 

* 

LDAA 

TBL1 ,X 

DISPLY  CODE 

0111 

B7 

0000 

A 

* 

STAA 

P6AP 

SET  CYCLE  LED 

0114 

7D 

0000 

A 

1ST 

CNTR1 

0117 

27 

IE  0137 

* 

BEQ 

SXIPX 

0119 

B6 

07DB 

D 

LDAA 

SEC0 

235  PROS  ***  STSTEM  CONTROL  PROGRAM  *** 


011C 

B7  0?DE 

D 

STAA 

'  SEC 

011? 

B6  07 DC 

D 

LDAA 

MIN0 

GET  CURRENT  SAMPLE 

0122 

B?  07D? 

D 

STAA 

MIN 

TIME  POR  USE 

0125 

B6  07DD 

D 

LDAA 

HR0 

BY  COMP 

0128 

B7  07S0 

D 

$ 

STAA 

BR 

012B 

B6  0000 

A 

LDAA 

DATL0 

012E 

B?  0000 

A 

STAA 

DATL 

0131 

B6  0000 

A 

LDAA 

DAYH0 

0134 

B7  0000 

A 

* 

STAA 

DAYH 

013? 

86  64 

A  SKIPX 

LDAA 

#$64 

START  MAIN  PUMP 

* 

KEEP  SCAN  0?? 

0139 

B?  0000 

A 

STAA 

P2BP 

MET.  PUMP  OPP 

013C 

86  14 

A 

LDAA 

#20 

10  SEC  DELAY  LOOP 

013E 

BD  0000 

A 

£ 

JSR 

GENTIM 

0141 

CE  0000 

D 

LDX 

#DATA 

GET  STARTING  ADR. 

0144 

??  07D2 

D 

* 

STX 

TDATA 

DATA  BUFF  &  STOR 

0147 

?6  0000 

A 

LDAB 

IP10H 

PUT  IP  UPPER  INTO  B 

014A 

C4  03 

A 

ANDB 

#$03 

MASK  UPPER  6  BITS 

014C 

86  E4 

A 

LDAA 

#211100100  LOAD  A 

014E 

IB 

ABA 

ADD  A&B  INTO  A 

014? 

?6  0000 

A 

LDAB 

IP10L 

LOVER  8  BITS  INTO  B 

0152 

B7  0000 

A 

STAA 

P2BP 

SET  D/A  OUTPUT 

0155 

?7  0000 

A 

A 

STAB 

P2AP 

ELECTRODES  ON 

0158 

B6  0000 

A 

A 

LDAA 

P6AP 

DUMMY  READ/ZERO  DETECT 

015B 

¥ 

A 

ETM 

SKIP4, VPHGL» VPHGH  SET  E.T.-HG  PLT 

01A5 

86  0A 

A 

LDAA 

#$0A 

SET  H6  LED 

01A? 

B?  0000 

A 

£ 

STAA 

P3BP 

0N=1 

01AA 

B6  0000 

A  SKIPS 

LDAA 

P6AC 

TIME  UP? 

01AD 

2A  ?B  01AA 

* 

BPL 

SKIP6 

NO-LOOP 

01A? 

B6  0000 

A 

$ 

LDAA 

P6AP 

DUMMY  READ 

01B2 

B6  0000 

A 

LDAA 

OVR 

CK  OVR 

01B5 

84  01 

A 

ANDA 

#$01 

01B? 

26  05  01BE 

* 

BNE 

SKIP8 

01B9 

86  02 

A 

LDAA 

#$02 

ACT  V1B 

01BB 

B7  0000 

A 

$ 

STAA 

P4AP 

01BE 

B6  0000 

A  SKIP9 

LDAA 

VPVS1 

VP  DELAY 

01C1 

48 

ASLA 

♦2 

01C2 

BD  0000 

A 

* 

JSR 

GENTIM 

01C5 

B6  0000 

A 

LDAA 

OVR 

CK  OVR 

01C8 

85  02 

A 

BITA 

#$02 

01CA 

26  08  01D4 

BNE 

SKIP9 

* 

OTHERWISE 

01CC 

7?  0000 

A 

CLR 

P4AP 

RESET 

01C? 

86  08 

A 

LDAA 

#$08 

&  ACT  V2B 

01D1 

B7  0000 

A 

STAA 

P4AP 

006  PROG  *♦*  SYSTEM  CONTROL  PROGRAM  *** 


* 


01D4 

86 

20 

A 

SKIPS 

LDAA 

#$20 

SAMPLE  LED  ON 

01 D6 

B7 

0000 

A 

* 

STAA 

P3BP 

H3  &  FULL  LED'S  OFF 

01D9 

♦ 

* 

ETM 

SKIP10 , VPSAML , VPSAMH  SAMP.  TIME  ON 

0223 

7D 

0000 

A 

* 

TST 

RCLFLG 

RECIRC  MODE? 

0226 

27 

0D  0235 

* 

BEQ 

BRA6 

NOsSKIP 

0228 

B6 

0000 

A 

LDAA 

P6AP 

YES:  DUMMY  READ 

022B 

B6 

0000 

A 

TIMUP 

LDAA 

P6AC 

TIME  UP  ON  E.T.? 

022E 

2A 

FB  022B 

BPL 

TIMUP 

NO:  LOOP 

0230 

B6 

0000 

A 

* 

LDAA 

P6AP 

DUMMY  READ 

0233 

20 

08  023D 

* 

BRA 

SK12A 

0235 

B6 

0000 

A 

BRA6 

LDAA 

P1BP 

DUMMY  READ 

* 

CLEAR  RESV  EMPTY  FLG 

0238 

B6 

0000 

A 

SKIP12 

LDAA 

P1BC 

CK  FOR  RESV  EMPTY 

023B 

2A 

FB  0233 

* 

BPL 

SKIP12 

NO-LOOP 

023D 

B6 

0000 

A 

SK12A 

LDAA 

P2BP 

0240 

84 

FB 

A 

ANDA 

#$FB 

0242 

B7 

0000 

A 

* 

STAA 

P2BP 

/PUMP  OFF 

0245 

7F 

0000 

A 

* 

CLR 

P3BP 

SAMPLE  PLATE  LED  OFF 

0248 

7D 

0000 

A 

TST 

MEDEX 

USING  MEDIUM  EXCHG? 

024B 

27 

5F  02AC 

* 

BEQ 

SKIP7 

NO:  SKIP  IT 

********************************************* 

* 

MEDIUM 

EXCHANGE 

********************************************* 

V 

024D 

B6 

0000 

A 

LDAA 

OVR 

0250 

85 

08 

A 

BITA 

#$08 

0252 

26 

58  02AC 

* 

BNE 

SKIP7 

CK  OVR 

0254 

7F 

0000 

A 

CLR 

P4AP 

RESET  TIMER 

0257 

7F 

0000 

A 

CLR 

P4BP 

025A 

86 

04 

A 

LDAA 

#$04 

ACT  V6A 

025C 

B7 

0000 

A 

* 

STAA 

P4BP 

025P 

86 

02 

A 

LDAA 

#2 

0261 

BD 

0000 

1 

* 

JSR 

GENTIM 

0264 

7F 

0000 

A 

CLR 

P4BP 

0267 

86 

01 

A 

LDAA 

#$01 

ACT  VIA 

0269 

B7 

0000 

A 

* 

STAA 

P4AP 

026C 

86 

02 

A 

LDAA 

#2 

026E 

BD 

0000 

A 

* 

JSR 

GENTIM 

0271 

7D 

0000 

A 

TST 

RCLFLG 

V3  IN  "A"  POSIT? 

0274 

27 

08  027E 

BEQ 

BRAS 

NO:SKIP 

* 


•07 

PROG  *** 

SYSTEM  CONTROL  PROGRAM  *** 

•276 

7F 

0000 

1 

CLR 

P4AP 

•279 

86 

20 

1 

LDAA 

#$20 

ACT  Y3B 

•27B 

B7 

0000 

A 

* 

STAA 

P4AP 

0271 

B6 

0000 

A 

BRAS 

LDAA 

P2BP 

•281 

8B 

04 

A 

ADDA 

#$04 

POMP  ON 

0283 

B7 

0000 

A 

* 

STAA 

P2BP 

0286 

B6 

0000 

A 

LDAA 

MEXCHG 

GET  FLUSHING  TIME 

0289 

BD 

0000 

A 

* 

JSR 

GENTIM 

028C 

B6 

0000 

A 

LDAA 

P2BP 

028F 

84 

FB 

A 

AND! 

#$FB 

PUMP  OFF 

0291 

B7 

0000 

A 

4c 

STAA 

P2BP 

0294 

7F 

0000 

A 

CLR 

P4AP 

0297 

86 

02 

A 

LDAA 

#$02 

ACT  V1B 

0299 

B7 

0000 

A 

4c 

STAA 

P4AP 

029C 

86 

02 

A 

LDAA 

#2 

029E 

BD 

0000 

A 

4c 

JSR 

GENTIM 

0211 

?F 

0000 

A 

CLR 

P4BP 

02A4 

7F 

0000 

A 

CLR 

P4AP 

0217 

86 

08 

A 

LDAA 

#$08 

ACT  V6B 

0219 

B7 

0000 

A 

4c 

STAA 

P4BP 

021C 

86 

IE 

A 

SKIP? 

LDAA 

#30 

02AE 

BD 

0000 

A 

♦ 

* 

JSR 

GENTIM 

15  SEC  EQUIL.  TIME 

* 

**********4^^*********************************** 

* 

START  SCAN 

*4<*4'*4c****4'4‘4‘4‘4‘4t4‘*4^**4c***4‘****4‘**4‘4‘4<***4‘****4‘*** 

ii* 

02B1 

B6 

0000 

A 

T 

SKIP13 

LDAA 

P2BP 

PRESERVE  2  MSB 

02B4 

84 

03 

A 

ANDA 

#$03 

OF  D/A  /START  CHART 

02B6 

C6 

90 

A 

LDAB 

#110010000  PUT  PEN  DOWN 

02B8 

IB 

ABA 

START  SCAN  S.  ELECTRODES  ON 

02B9 

B7 

0000 

A 

STAA 

P2BP 

02BC 

B6 

0000 

A 

* 

LDAA 

P6AP 

DUMMY  READ 

02BF 

ETM 

BLANK, SCANTL.SCANTH  SET  ET  TO 

* 

SCAN  TIME 

0309 

B6 

0000 

A 

LDAA 

CNTR2 

030C 

81 

01 

A 

CMPA 

#1 

CNTR2  >  1 

030E 

2E 

11  0321 

BGT 

SK16B 

YES:  SKIP 

* 

ELSE 

0310 

7F 

0000 

A 

CLR 

SCNFLG 

CLR  END  OF  SCAN  FLG 

0313 

7C 

07D8 

D 

* 

INC 

POLFLG 

SET  ENABLE  SCAN  FLAG 

* 

**** 

* 

START 

TAKING 

DATA  **** 

0316 

B6 

0000 

A 

LDAA 

P2AP 

DUMMY  READ 

0319 

86 

07 

A 

LDAA 

#07 

CLR  MASK  ON  CA1 

031B 

B7 

0000 

A 

STAA 

P2AC 

ENABLE  INTERRUPTS  FROM 

79 
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008  PROS  ***  SYSTEM  CONTROL  PROGRAM  ♦** 
031E  0E 

031F  20  05  0326 

* 

0321  96  07  A  SK16B 
0323  B7  0000  A 

* 

0326  7D  0000  A  SKIP15 
0329  27  0B  0335 

* 

032B  B6  0000  A 
032E  B1  0000  A 
0331  27  03  0336 

* 

0333  7E  03D8  P 

* 

* 


■f 

********** 

.Jr 

FLUSH  OUT 

RESV.  ************* 

*r 

0336  86  02  A  SK12 

0338  B7  0000  A 

ft 

LOAA 

3TAA 

#$02 

P4BP 

ACT  V5B/START  DRAINING 

033B  86  10  A 

0330  B7  0000  A 

* 

LOAA 

STAA 

#$10 

P3BP 

FLUSHING  LED  ON 

0340  7D  0000  A 

0343  27  08  034D 

* 

TST 

BEQ 

RCLFLG 

SK14A 

0345  B6  0000  A 

0348  B6  0000  A  SK14C 
034B  2A  PB  0349 

* 

LOAA 

LOAA 

BPL 

P1BP 

P1BC 

SK14C 

DUMMY  READ 

RESV.  EMPTY  YET? 

NO:  LOOP 

YES:  DO  NORMAL  FLUSH 

* 

034D  86  IE  A  SK14A 

0341  BO  0000  A 

ft 

LOAA 

JSR 

#30 

GENTIM 

15  SEC  DELAY  TO  EMPTY 
RESV.  COMPLETELY 

0352  C6  01  A 

0354  F7  0000  A 

ft 

LDAB 

STAB 

#$01 

P4BP 

STOP  DRAINING 

ACT  V5A/FILL 

0357  B6  0000  A 

035A  85  10  A 

♦ 

035C  27  03  0361 

ft 

LOAA 

BITA 

BEQ 

OVR 

#$10 

SKIP17 

CHE  V5  OVR 

SKIP  ALL  FLUSHING 

TIMING  IF  V5 

IS  IN  OVERRIDE 

▼ 

035E  7E  0306  P 

JMP 

SKI 

NO  FLUSH 

♦ 

0361  B6  0000  A  SKIP17 
0364  BO  0000  A  * 

LOAA 

JSR 

VPFLSL 

GENTIM 

FLUSH  TIMING 

DO  TIMING 

* 

0367  B6  0000  A  SKIP20 

036A  86  02  A 

036C  B7  0000  A 

LOAA 

LOAA 

STAA 

P1BP 

#$02 

P4BP 

DUMMY  READ/CLR 

RESV.  EMPTY  FLAG 

STOP  FILLING 

ACT  V5B/DRAIN 

036P  B6  0000  A  SI I P2P 
0372  2A  FB  036F 

!  LOAA 
BPL 

P1BC 

SKIP22 

RESV.  EMPTY? 

YES-START  FILLING 

CLI 

BRA 

SKIP15 

.2  SEC  CLOCK  INPUT 

LOAA 

STAA 

#$07 

P6AC 

ENABLE  ZERO  INTERRUPT 
ON  E.T. 

TST 

BEQ 

RCLFLG 

SK12 

LOAA 

CMPA 

BEQ 

CNTR1 

VPRECY 

SK12 

LAST  CYCLE? 

YES:  EMPTY  RESV 

JMP 

SKI 

NO:  DON'T  EMPTY 

80 


009  PROG  ***  SYSTEM  CONTROL  PROGRAM  *** 


*  OTHERWISE  LOOP 

* 

0374  86  14  A  SKIP23  LDAA  #20  10  SEC 

0376  BD  0000  A  JSR  GENTIM  DELAY  TO  DRAIN  COMPL 

* 

* 

* 

************************************************* 

*****  START  RESERVOIR  FILLING  *********** 

************************************************* 


* 


0379 

86 

01 

A 

LDAA 

#$01 

STOP  DRAINING 

037B 

B7 

0000 

A 

$ 

STAA 

P4BP 

ACT  V5A/FILL 

037E 

7F 

0000 

A 

$ 

CLR 

P3BP 

FLUSHING  LED  OFF 

03ei 

B6 

0000 

A 

LDAA 

P3AP 

FILLING  LED  ON 

0384 

8B 

20 

A 

ADDA 

#$20 

0386 

B7 

0000 

A 

41 

STAA 

P3AP 

0389 

BD 

0000 

A 

$ 

JSR 

CLOCK 

038C 

B6 

0000 

A 

LDAA 

TBCDS 

038F 

B7 

07DB 

D 

STAA 

SEC0 

0392 

B6 

0000 

A 

LDAA 

TBCDM 

GET  TIME  OF  DAY 

0395 

B7 

07DC 

D 

STAA 

MIN0 

SAMPLE  COLLECTED 

0398 

B6 

0000 

A 

LDAA 

TBCDH 

FOR  USE  BY  COMPT  ROUTINE 

039B 

B7 

07DD 

D 

* 

STAA 

HR0 

039E 

84 

F0 

A 

ANDA 

#$F0 

MASK  LOWER  BYTE 

03A0 

81 

02 

A 

CMPA 

#2 

UPPER  BYTE  =  27 

03A2 

26 

09  0SAD 

BNE 

SKIP25 

NO:  HR0<23 

03A4 

B6 

07DD 

D 

LDAA 

HR0 

RESET  A 

03A7 

84 

0F 

A 

ANDA 

#$0F 

MASK  UPPER  BYTE 

03A9 

80 

03 

A 

SUBA 

#3 

A  -  3 

03AB 

2C 

15  03C2 

BGE 

SKIP26 

IF>=  0  THEN  HR0  =  23,24 

♦ 

NO: 

HR0  <  23 

03AD 

7D 

07D0 

D 

SIIP25 

1ST 

DAYFG 

DAY  FLAG  SET? 

03B0 

27 

13  03C5 

* 

BEQ 

SKIP28 

NO:  CONT. 

03B2 

7F 

07  D0 

D 

CLR 

DAYFG 

OTHER  WISE  CLEAR  FLAG 

03B5 

7C 

0000 

A 

INC 

DAYL0 

INC  DAYL0 

03B8 

7D 

0000 

A 

1ST 

DAYL0 

DAYL0  *  07 

03BB 

26 

08  03C5 

* 

BNE 

SKIP 28 

NO:  CONT. 

03BD 

?C 

0000 

A 

INC 

DAYH0 

OTHER  WISE  INC  DAYH0 

03C0 

20 

03  03C5 

* 

BRA 

SKIP28 

CONT. 

03C2 

7C 

07D0 

D 

SKIP2S 

* 

INC 

DAYFG 

03C5 

B6 

0090 

A 

SIIP29 

LDAA 

RSVFIL 

GET  FILL  TIME 

03C8 

BD 

0000 

A 

j|r 

JSR 

GENTIM 

RESV.  FILLING  TIME 

03CB 

B6 

0000 

A 

LDAA 

P3AP 

03CE 

84 

C0 

A 

ANDA 

#$C0 

FILLING  LED  OFF 

03D0 

B7 

0000 

A 

$ 

STAA 

P3AP 

03D3 

7F 

0000 

A 

CLR 

P4BP 

FILL  PUMP  OFF 

81 


010  PROG  ***  SYSTEM  CONTROL  PROGRAM  *** 


* 

********************************** 

*  SCANNING  WAIT  LOOP 
*********************************** 

* 


0306 

7D 

0000 

A 

SKI 

tst 

SCNFLG 

SCAN  DONE? 

0309 

27 

FB  0305 

* 

BEQ 

SKI 

NO:  LOOP 

03DB 

B6 

0000 

A 

* 

SKIP36 

LDAA 

P2BP 

TURN  MAIN  PUMP 

03OE 

8B 

04 

A 

ADDA 

#*00000100  S.  PUMP  LEO  ON 

03E0 

B7 

0000 

A 

* 

STAA 

P2BP 

03E3 

B6 

0000 

A 

LOAA 

OVR 

03E6 

85 

01 

A 

BITA 

#$01 

03E8 

26 

21  040B 

4c 

BNE 

SXIP37 

03EA 

7F 

0000 

A 

CLR 

P4AP 

03ED 

B6 

0000 

A 

LOAA 

P4BP 

03F0 

84 

03 

A 

ANOA 

#$03 

03F2 

B7 

0000 

A 

STAA 

P4BP 

03  F5 

86 

01 

A 

LOAA 

#$01 

ACT  VIA/ 

03F7 

B7 

0000 

A 

4 

STAA 

P4AP 

03FA 

7D 

0000 

A 

TST 

MEDEX 

ADO  1  SEC  EXTRA 

03FD 

27 

05  0404 

* 

BEQ 

VP1 

DELAY  IF  DOING 

03FF 

86 

02 

A 

LOAA 

#2 

0401 

BD 

0000 

A 

* 

JSR 

GENTIM 

0404 

B6 

0000 

A 

VP1 

LDAA 

VPVS2 

GET  VP  DELAY  2 

0407 

48 

ASLA 

*2 

0408 

BD 

0000 

A 

* 

JSR 

GENTIM 

040B 

B6 

0000 

A 

SKIP3? 

LOAA 

OVR 

040E 

85 

02 

A 

BITA 

#$02 

0410 

26 

33  0445 

4 

BNE 

SKIP38 

0412 

B6 

0000 

A 

LOAA 

P4BP 

0415 

84 

03 

A 

ANOA 

#$03 

0417 

B? 

0000 

A 

STAA 

P4BP 

041A 

7F 

0000 

A 

CLR 

P4AP 

0410 

86 

04 

A 

LOAA 

#$04 

041F 

B7 

0000 

A 

4c 

STAA 

P4AP 

ACT  V2A/HG  LOOP 

0422 

86 

02 

A 

LOAA 

#2 

0424 

BD 

0000 

A 

4 

JSR 

GENTIM 

0427 

70 

0000 

A 

TST 

MEDEX 

042A 

27 

19  0445 

4c 

BEQ 

SKIP38 

042C 

70 

0000 

A 

TST 

RCLFLG 

RECIRC  MODE? 

042F 

27 

14  0445 

4c 

BEQ 

SKIP38 

NO:  SKIP 

0431 

B6 

0000 

A 

LDAA 

OVR 

YES:  RESET  V3 

0434 

85 

04 

A 

BITA 

#$04 

0436 

26 

00  0445 

BNE 

SEIP39 

* 
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2438 

7F 

0000 

A 

CLR 

P4AP 

043B 

86 

10 

A 

LOAA 

#$10 

ACT  V3A 

0430 

B7 

0000 

A 

* 

STAA 

P4AP 

RECIRC  MODE 

0440 

86 

02 

A 

LOAA 

#2 

0442 

BO 

0000 

A 

* 

JSR 

GENTIM 

0445 

B6 

0000 

A 

SKIP39 

LOAA 

CNTR2 

CNTR2-0? 

0448 

27 

03  0440 

BEQ 

SKIP39 

044A 

7A 

0000 

A 

♦ 

DEC 

CNTR2 

NO  :  DEC  CNTR2 

0440 

B6 

0000 

A 

* 

SKIP33 

LOAA 

P6AP 

DUMMY  READ/CLEAR 

♦ 

E.T.  ZERO 

0450 

7D 

0000 

A 

TST 

RCLFL3 

0453 

27 

0B  0460 

* 

BEQ 

PURG 

0455 

B6 

0000 

A 

LOAA 

CNTR1 

0458 

B1 

0000 

A 

CMPA 

VPRECY 

045B 

27 

03  0460 

BEQ 

PURG 

NEW  SAMPLE-  PURGE 

0450 

7E 

04BA 

P 

* 

JMP 

NOPURG 

SAME  SAMPLE  -  NO  PURGE 

0460 

♦ 

* 

ETM 

PURG  ,  VPPRGL  ,  VPPRGH  PURGE  T'M-E.T 

04AA 

B6 

0000 

A 

LOAA 

P3BP 

PURGE  LED  ON 

04AO 

8B 

04 

A 

AOOA 

#$04 

04AF 

B7 

0000 

A 

* 

STAA 

P3BP 

04B2 

86 

07 

A 

LOAA 

#$07 

ENABLE  E.T.  0 

04B4 

B7 

0000 

A 

* 

STAA 

P6AC 

INTERRUPT 

04B7 

7C 

07D1 

0 

♦ 

INC 

PURGF3 

DUMMY  READ  TO 

04BA 

B6 

0000 

A 

NOPURS 

* 

LOAA 

P1BP 

CLR  RESV.  EMP.  FLAG 

04BO 

7D 

0000 

A 

TST 

RCLFLG 

04C0 

27 

0A  04CC 

* 

BEQ 

SK25A 

04C2 

B6 

0000 

A 

LOAA 

CNTR1 

04C5 

B1 

0000 

A 

CMPA 

VPRECY 

LAST  CYCLE  ? 

04C8 

27 

02  04CC 

* 

BEQ 

SK25A 

YES:  SKIP 

04CA 

20 

2B  04F7 

* 

BRA 

SKIP2? 

NO:  NO  ACID  ADDITION 

04CC 

B6 

0000 

A 

SK25A 

LOAA 

ACOFLG 

MAKE  ACID  ADO. 7 

04CF 

27 

26  04F7 

* 

BEQ 

SKIP27 

NO-SKIP 

0401 

B6 

0000 

A 

LOAA 

P3AP 

ACID  PUMP  ON 

0404 

BB 

10 

A 

AOOA 

#$10 

0406 

B7 

0000 

A 

* 

STAA 

P3AP 

0409 

B6 

0000 

A 

LOAA 

P3BP 

04OC 

8B 

40 

A 

AOOA 

#$40 

ACID  ADO  LEO  ON 

0401 

B7 

0000 

A 

* 

STAA 

P3BP 

0411 

B6 

0000 

A 

LOAA 

VPACID 

ACID  ADO  TIME 

0414 

BO 

0000 

A 

JSR 

GENTIM 

83 
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* 


04E7 

B6 

0000 

A 

LDAA 

04EA 

84 

EF 

A 

ANDA 

04EC 

B7 

0000 

A 

* 

STAA 

04  EF 

B6 

0000 

A 

LDAA 

04F2 

84 

BF 

A 

ANDA 

04  F4 

B7 

0000 

A 

* 

STAA 

04F7 

B6 

0000 

A 

* 

SKIP27 

LDAA 

04FA 

8B 

01 

A 

ADDA 

04FC 

B1 

0000 

A 

CMPA 

04FF 

26 

26  0527 

* 

BNE 

0501 

B6 

0000 

A 

LDAA 

0504 

8B 

08 

A 

ADDA 

0506 

B7 

0000 

A 

* 

STAA 

0509 

B6 

0000 

A 

LDAA 

050C 

8B 

80 

A 

ADDA 

050E 

B7 

0000 

A 

* 

STAA 

0511 

B6 

0000 

A 

* 

LDAA 

0514 

BD 

0000 

A 

* 

JSR 

0517 

B6 

0000 

A 

LDAA 

051A 

84 

F7 

A 

ANDA 

051C 

B7 

0000 

A 

* 

STAA 

051F 

B6 

0000 

A 

LDAA 

0522 

84 

7F 

A 

ANDA 

0524 

B7 

0000 

A 

* 

STAA 

0527 

BD 

0000 

A 

SKIP32 

* 

JSR 

052A 

7C 

0000 

A 

4c 

INC 

052D 

B6 

0000 

A 

LDAA 

0530 

8B 

01 

A 

ADDA 

0532 

B1 

0000 

A 

CMPA 

0535 

27 

03  053A 

BE  Q 

0537 

7E 

00C6 

P 

* 

JMP 

053A 

7F 

0000 

A 

SKIP43 

CLR 

053D 

7C 

0000 

A 

INC 

0540 

7E 

00C6 

P 

JMP 

* 


* 

* 

* 

XREF 

XREF 

XREF 

XREF 

XREF 

XREF 


P3AP 

#$EF 

P3AP 

ACID  PUMP  OFF 

P3BP 

#$  BF 
P3BP 

ACID  LED  OFF 

CNTR1 

TIME  TO  ADD  STD? 

#1 

ADD  1  FOR  LOOK  AHEAD 

VPRECY 

VALUE  AND  COMPARE 

SKIP32 

NO  STD  ADD-SKIP 

OTHERWISE  CONT. 

P2BP 

#$08 

P2BP 

P3BP 

#$80 

STD  PUMP  ON 

P3BP 

STD  ADD  LED  ON 

VPSTD 

GENTIM 

STD  ADD  TIME 

P2BP 

#$F7 

P2BP 

STD  PUMP  OFF 

P3BP 

#$7F 

P3BP 

LED  OFF 

COMPT 

COMPUTE  ROUTINE 

CNTR1 

VPRECT  GET  STD  ADD  CYCLE  # 

#1  INC  BY  1 

CNTR1  COMP  TO  CNTR1 

SKIP43  IF*, CLR  CNTR1  &  RTN 

RTN 

CNTR1 

CNTR1 

RTN 


GENTIM,TBCDS,TBCDM,TBCDH,CNTR1 
SCNFL3 ,CNTR2,MEDEX,MEXCHG 
IP10L,VPVS1,VPSAML,VPSAMH,COMPT 
SCAN, CLOCK, VPS TD.RSVFIL 
BCDBIN,ACDFLG,VPRECY,DAYL,DAYH 
VPPRGH , VPPRGL ,P1 AP ,DAYL0 ,DAYH0 
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013  PROG  ***  SYSTEM  CONTROL  PROGRAM  *** 


* 

* 

* 


* 

* 


XREF  P1BP  ,P1AC , P1BC ,P2AP  f P2BP ,P2AC , P2BC 

XREF  P3AP ,P3BP, P3AC ,P3BC ,P4AP ,P4BP  »P4AC 
XREF  P4BC ,P5AP,P6BP ,P6AC ,  P§BC , HALT 
XREF  VPHGH, VPHGL, IP10H,CSUMF,HALTF 
XREF  RCLFLG,SCANTH,SCANTL,VPFLSL,CT,OVR 
XREF  TIMBUF , TMBUF, VPACID,TBL1 ,  VPVS2 


XDEF  DATA ,TDATA,PROGM,SEC ,MIN,HR,CNTHLD 
XDEF  VAFLG , VBFLG , POLFLG , EPDATA 

XDEF  HR0 ,MI N0  tSEC0 , TTBL1 , PURGFG 


07D0 

£ 

DSCT 

07D0 

0001 

A 

DAYFJ 

RMB 

1 

07D1 

0001 

A 

PORGFG 

RMB 

1 

07D2 

0002 

A 

TDATA 

RMB 

2 

07D4 

0001 

A 

BCDMS 

RMB 

1 

07D5 

0001 

A 

BCDLS 

RMB 

1 

07D6 

0001 

A 

VAFLG 

RMB 

1 

07D7 

0001 

A 

VBFLG 

RMB 

1 

07D8 

0001 

A 

POLFLG 

RMB 

1 

07D9 

0001 

A 

TADU 

RMB 

1 

07DA 

0001 

A 

TADL 

RMB 

1 

07DB 

0001 

A 

SEC0 

RMB 

1 

07DC 

0001 

A 

MIN0 

RMB 

1 

07DD 

0001 

A 

HR0 

RMB 

1 

07DE 

0001 

A 

SEC 

RMB 

1 

07DF 

0001 

A 

MIN 

RMB 

1 

07E0 

0001 

A 

HR 

RMB 

1 

07E1 

0002 

A 

EPDATA 

RMB 

2 

07  E3 

0002 

A 

CNTHLD 

RMB 

2 

ERRORS  00000 


END 
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<4 


I  f 

) 


NAM  MESG  TER.  17  9-19-79  CLAVELL 

* 

*  FILE  NAMES:  &MESG  (S)  /  MESG  (R) 

* 

OPT  REL 

* 

TIL  ***  MESSAGE  LIST  SUBROUTINE  *♦* 

* 

************************************************************** 

* 

*  THIS  IS  A  LIST  OF  ALL  THE  MESSAGES  CALLED  BY  OTHER 

*  SYSTEM  PROGRAMES. 

* 

**************************************************************** 

* 

* 

PSCT 


FCC  /  TEAR:  / 

FCC  /  JULIAN  DATE:  / 

FCC  /SET  REAL-TIME  CLOCK  TO  CURRENT  TIME:  / 

FCC  /  THEN  PUSH  "GO"  / 

FCC  /13  CD  STANDARD  CONC.-IN  PPB:  / 

FCC  /14  PB  STANDARD  CONC.-IN  PPB:  / 

FCC  /15  CU  STANDARD  CONC.-IN  PPB:  / 

FCC  /16  ZN  STANDARD  CONC.-IN  PPB:  / 

FCC  /  IF  THE  POTENTIOSTATE  PARAMETERS  / 

FCC  /  ARE  SET,  PUSH  **SO“  / 


FCC/  ******************  / 
FCC  /  *  SYSTEM  INITIALIZATION  ♦  / 

FCC  /  *  ENTER  THE  FOLLOWING  DATA  *  / 

FCC/  ******************  / 


FCC  /0  HG  PLATTING  TIME  (MINSSEC):  / 
FCC  /I  SAMPLE  PLATE  TIME( MINSSEC ) :  / 
FCC  /2  VALVE  DELAY 1  (SEC):  / 
FCC  /3  VALVE  DELAT2  (SEC):  / 
FCC  /4  SCAN  TIME  (MINLSEC):  / 
FCC  /5  FLUSHING  TIME  (SEC):  / 
FCC  /6  STD.  ADDITION  TIME  (SEC):  / 
FCC  /8  ACID  ADDITION  TIME  (SEC):  / 
FCC  /9  PURGE  DELAY  TIME  (MIN&SEC):  / 
FCC  /10  ZINC  ANALYSIS  ( YES=1 , NO=0 ) :  / 
FCC  /II  RECIRC.  MODE  (YES*1,NO=0):  / 
FCC  /12  CYCLE  #  FOR  STD.  ADD  .:  / 
FCC  /25  INITIAL  POTENTIAL:  / 
FCC  /FINAL  POTENTIAL:  / 
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FCC  /INPUT  ERROR :  PLEASE  REENTER  NUMBER  / 

FCC  /***  SELECT  PROGRAM  MODE  ***  / 

FCC  /?  ACID  ?  (YES=1,NO=0)  :  / 

FCC  /DATA  OUTPUT  **  CONCENTRATIONS  IN  PPB  **/ 
FCC  /***  ERROR:  LOW  STD  CONC-  ,  ,  ***  / 

FCC  /PARAMETER  CHANGE  ( TES=1 ,NO=0) :  / 

FCC  /PUSH  "GO"  TO  RESTART  PROGRAM  / 

FCC  /ERROR:  NUMBER  MUST  BE  >  1  S,  <  120  / 

FCC  /l?  CD  LOWER  LIMIT  (IN  VOLTS):  / 

FCC  /18  CD  UPPER  LIMIT  (IN  VOLTS):  / 

FCC  /19  PB  LOWER  LIMIT  (IN  VOLTS):  / 

FCC  /20  PB  UPPER  LIMIT  (IN  VOLTS):  / 

FCC  /21  CU  LOWER  LIMIT  (IN  VOLTS):  / 

FCC  /22  CU  UPPER  LIMIT  (IN  VOLTS):  / 

FCC  /23  ZN  LOWER  LIMIT  (IN  VOLTS):  / 

FCC  /24  ZN  UPPER  LIMIT  (IN  VOLTS):  / 

FCC  /26  RESV  FILLING  TIME  (SEC):  / 

FCC  /QUESTION  NUMBER:  / 

FCC  /27  MEDIUM  EXCHG  (IES=1,NO=0) :  / 

FCC  /28  MEDIUM  FLUSH  TIME  (SEC):  / 


MES1,MES2,MES3,MES7,MES9,MES10,MES80,MES81 
MESH  , MES12 ,MES14 ,MES1S  fMESl? ,MES18,MES19 
MES20 , MES21 , MES22 ,MES23 ,MES24 ,MES25 ,MES26 ,MES27 
MES30 , MES31 , ERRMES ,MES32,MES40, MES45, MESER 
MES65,MES70tMES71,MES72,MES73,MES78 
KES74 , MES75 , MES76 , MES77 ,MES50 ,MES60,MES79 
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001  POLL  **•  INTERRUPT  POLLING  ROUTINE  *** 


NAM  POLL  PER.  16  8-2-79  CLAVELL 

OPT  REL 

* 

*  FILE  NAMES:  &POL  (S)  /  POL  (R) 

* 

************************************************* 

TTL  ***  INTERRUPT  POLLING  ROUTINE  *** 

************************************************* 
* 

♦ 

* 

*******  I NTERRRUPT  CLOCK  INTERVAL  IS  .2  SEC 
* 

0000  PSCT 

* 


0000 

B6 

0000 

A 

PO  LI 

LDAA 

P0LFL5 

SCANNING  FLAG  SET? 

0003 

27 

08  000D 

* 

BEQ 

POL 

NO:  GO  TO  POL 

0005 

B6 

0000 

A 

LDAA 

P2AC 

SCAN  INTERRUPT? 

000e 

2A 

03  000D 

BPL 

POL 

NO:  JMP  TO  POL 

000A 

?E 

010C 

P 

4 

JMP 

P0L3 

YES:  JMP  TO  SCAN 

000D 

B6 

0000 

A 

POL 

LDAA 

P6AC 

E.T.  ZERO? 

0010 

2A 

03  0019 

BPL 

HLT 

NO:  GO  TO  HLT 

0012 

7E 

0152 

P 

* 

JMP 

POL17 

YES :GO  TO  POL17 

0015 

7E 

0124 

P 

POLB 

4c 

JMP 

P0L2 

0018 

B6 

0000 

A 

HIT 

LDAA 

P5BC 

HALT  FLAG  SET? 

001B 

48 

ASLA 

001C 

2A 

03  0021 

BPL 

VAL 

NO:  CHX  OVR'S 

001E 

7E 

013E 

P 

4c 

JMP 

P0L16 

YES:  JMP  TO  HALT 

0021 

B6 

0000 

A 

VAL 

LDAA 

P2BC 

OVR-RESET  SET? 

0024 

2B 

EF  0015 

4c 

BMI 

POLB 

0026 

C6 

28 

A 

LDAB 

#40 

0028 

CE 

0000 

A 

LDX 

#PRBUF 

MOVE  MESG  INTO 

002B 

FF 

0000 

A 

STX 

TMES 

RAM  PRINT  BUFFER 

002E 

CE 

01 AB 

P 

LDX 

#MESOVR 

0031 

FF 

0000 

A 

4c 

STX 

TIMES 

0034 

FE 

0000 

A 

LDX 

TIMES 

0037 

A6 

00 

A 

BOOT1 

LDAA 

0,X 

0039 

FE 

0000 

A 

LDX 

TMES 

003C 

A7 

00 

A 

STAA 

0,X 

003E 

08 

I  NX 

003F 

FF 

0000 

A 

STX 

TMES 

UPDATE  POINTER 

0042 

FE 

0000 

A 

LDX 

TIMES 

0045 

08 

I  NX 

0046 

FF 

0000 

A 

STX 

TIMES 

UPDATE  POINTER 

0049 

5A 

DECB 

DEC  COUNTER 

004A 

26 

E3  0037 

4c 

BNE 

BOOTl 

004C 

B6 

0000 

A 

LDAA 

P3AC 

004F 

2B 

IB  006C 

4 

BMI 

P0L4 

VI? 

0051 

48 

ASLA 
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002  POLL  ***  INTERRUPT  POLLING  ROUTINE  ♦** 


0052  2B  28  00?C 

* 

BMI 

P0L5 

V2? 

0054  B6  0000 

A 

LDAA 

P3BC 

005?  2B  33  008C 

* 

BMI 

POLS 

V3? 

0059  48 

ASLA 

005A  2B  40  009C 

* 

BMI 

P0L7 

V4? 

005C  B6  0000 

A 

LDAA 

P4AC 

0057  2B  4B  00AC 

* 

BMI 

P0L8 

V5  ? 

0061  48 

ASLA 

0062  2B  58  00BC 

* 

BMI 

P0L9 

VS? 

0064  B6  0000 

A 

LDAA 

P4BC 

0067  2B  63  00CC 

* 

BMI 

POL10 

V7? 

0069  48 

ASLA 

006A  2B  70  00DC 

* 

BMI 

POL11 

V8? 

006C  B6  0001 

* 

D  P0L4 

LDAA 

OVR 

TEST  INTERRUPT  REG 

006F  8B  01 

A 

ADDA 

#$01 

0071  B7  0001 

D 

STAA 

OVR 

0074  C6  31 

A 

LDAB 

#$31 

0076  F7  0006 

A 

STAB 

PRBUF+S 

0079  7E  00 EC 

P 

* 

JMP 

BACK 

007C  B6  0001 

D  P0L5 

LDAA 

OVR 

007F  8B  02 

A 

ADDA 

#$02 

0081  B7  0001 

D 

STAA 

OVR 

0084  C6  32 

A 

LDAB 

#$32 

0086  F7  0006 

A 

STAB 

PRBUF+6 

0089  7E  00EC 

P 

* 

JMP 

BACK 

008C  B6  0001 

D  POLS 

LDAA 

OVR 

00SF  8B  04 

A 

ADDA 

#$04 

0091  B7  0001 

D 

STAA 

OVR 

0094  C6  33 

A 

LDAB 

#$33 

0096  F7  0006 

A 

STAB 

PRBUF+6 

0099  7E  00EC 

P 

* 

JMP 

BACK 

009C  B6  0001 

D  P0L7 

LDAA 

OVR 

009F  8B  08 

A 

ADDA 

#$08 

00A1  B7  0001 

D 

STAA 

OVR 

00A4  C6  34 

A 

LDAB 

#$34 

00A6  F7  0006 

A 

STAB 

PRBUF+S 

00A9  7E  08EC 

P 

if 

JMP 

BACK 

00AC  B6  0001 

D  POLS 

LDAA 

OVR 

00AF  8B  10 

A 

ADDA 

#$10 

00B1  B7  0001 

D 

STAA 

OVR 

00B4  C6  35 

A 

LDAB 

#$35 

00B6  F7  0006 

A 

STAB 

PRBUF+6 

00B9  7E  00EC 

P 

if 

JMP 

BACK 

00BC  B6  0001 

D  P0L9 

LDAA 

OVR 

00BF  SB  20 

A 

ADDA 

#$20 
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203  POLL  **♦  INTERRUPT  POLLING  ROUTINE  *** 


00C1  B?  0001 

D 

STAA 

00C4  C6  36 

A 

LDAB 

00C6  F?  0226 

A 

STAB 

00C9  ?E  02EC 

P 

* 

JMP 

00CC  B6  0201 

D  P0L12 

LDAA 

00CF  8B  40 

A 

ADDA 

00D1  B7  0021 

D 

STAA 

00D4  C6  3? 

A 

LDAB 

00D6  F7  0006 

A 

STAB 

00D9  7E  00 EC 

P 

* 

JMP 

00DC  B6  0221 

D  P0L11 

LDAA 

00DF  8B  30 

A 

ADDA 

00E1  B?  0021 

D 

STAA 

00E4  C6  38 

A 

LDAB 

00E6  F?  0006 

A 

STAB 

00E9  ?E  02EC 

P 

* 

JMP 

00EC  66  01 

* 

A  BACK 

LDAA 

00EE  9?  07 

A 

* 

STAA 

00F0  CE  0220 

A 

LDX 

00F2  DF  05 

A 

* 

5TX 

00F5  BD  B2C3 

A 

JSR 

00F8  BD  B2A0 

A 

JSR 

00FB  BD  B38B 

A 

JSR 

00 FE  B6  0220 

A 

LDAA 

0101  B6  0020 

A 

LDAA 

0104  B6  0000 

A 

LDAA 

0107  B6  0000 

A 

LDAA 

010A  0E 

CLI 

010B  3B 

4c 

RTI 

010C  7C  0200 

D  POLS 

INC 

010F  B6  0020 

D 

LDAA 

0112  81  03 

A 

CMPA 

0114  26  05  011C 

* 

BNE 

0116  7E  0000 

A 

JMP 

0119  ?F  0200 

D  RPOL 

4c 

CLR 

011C  B6  0020 

A  RPOl 

LDAA 

011F  B6  0000 

A 

4c 

LDAA 

0122  0E 

CLI 

0123  3B 

4c 

RTI 

0124  ?F  0201 

D  P0L2 

4t 

CLR 

012?  86  01 

A 

LDAA 

0129  97  07 

A 

4c 

STAA 

012B  CE  0183 

P 

LDX 

OVR 

#$36 

PRBUF+6 

BACK 

OVR 

#$40 

OVR 

#$3? 

PRBUF+6 

BACK 

OVR 

#$80 

OVR 

#$38 

PRBDF+S 

BACK 


#1  OVER  RIDE  MESS. 

$000? 

#PRBUF 

$0005 

$B2C3 

SB2A0 

$B38B 

P3AP  DUMMY  READS  TO 

P3BP  CLEAR  INTERRUPT 

P4AP  FLAGS 

P4BP 


CSUMF  ACCUMULATE  3  INTERRUPTS 

CSUMF  BEFORE  COLLECTING 

#3  DATA  POINTS 

RPOl  .6  SEC/PT 

SCAN 

CSUMF 

P2BP  DUMMY  READ 

P2AP  DUMMY  READ 


OVR  CLR  INTR.  REGISTER 

#1 

$0007 

#MESP  POLLING  MISG. 
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An 


004  POLL  ***  INTERRUPT  POLLING  ROUTINE  *♦* 


w 

CM 

H 

ca 

DP 

05 

A 

* 

STX 

$0005 

0130 

BD 

B2C3 

A 

JSR 

$B2C3 

0133 

BD 

B2A0 

A 

JSR 

$B2A0 

0136 

BD 

B38B 

A 

* 

JSR 

$B38B 

0139 

B6 

0000 

A 

* 

LDAA 

P2BP 

DUMMY  READ 

013C 

0E 

CLI 

0130 

SB 

* 

RTI 

013E 

7D 

0000 

A 

P0L1S 

1ST 

INT7L3 

CALLED  PROM  INIT? 

0141 

27 

05  0148 

BEQ 

BLT1 

NO 

0143 

BD 

0000 

A 

4c 

JSR 

CHG 

YES:  JUMP  TO  HALT 

0146 

0E 

CLI 

0147 

3B 

4k 

RTI 

0148 

86 

01 

A 

HLT1 

LDAA 

#1 

SET  THE  HALT  PLAG 

014A 

B7 

0002 

D 

STAA 

HALT? 

014D 

B6 

0000 

A 

LDAA 

P5BP 

DUMMY  READ 

0150 

0E 

CLI 

0151 

3B 

4c 

RTI 

0152 

86 

06 

A 

P0L17 

LDAA 

#$06 

MASK  INTERRUPT 

0154 

B7 

0000 

A 

41 

STAA 

P6AC 

ON  E.T.  ZERO 

0157 

7D 

0000 

A 

TST 

PDRG73 

PROM  PURGE? 

015A 

27 

0D  0169 

* 

BEQ 

SCN 

NO:  SCAN 

015C 

B6 

0000 

A 

LDAA 

P3BP 

0157 

84 

7B 

A 

ANDA 

#$?B 

PURGE  LED  077 

0161 

B7 

0000 

A 

STAA 

P3BP 

0164 

77 

0000 

A 

CLR 

PURG73 

0167 

20 

15  017E 

4c 

BRA 

SCN1 

0169 

7C 

0000 

A 

SCN 

INC 

SCN7L5 

SET  SCAN  END  PLAG 

016C 

77 

0000 

A 

CLR 

P0L7L3 

0167 

86 

04 

A 

LDAA 

#$04 

0171 

B7 

0000 

A 

4c 

STAA 

P2AC 

0174 

B6 

0000 

A 

LDAA 

P2BP 

0177 

84 

03 

A 

ANDA 

#$03 

END  SCAN 

0179 

8B 

60 

A 

ADDA 

#$60 

017B 

B7 

0000 

A 

* 

STAA 

P2BP 

017E 

B6 

0000 

A 

SCN1 

LDAA 

P6AP 

DUMMY  READ 

0181 

0E 

CLI 

0182 

3B 

♦ 

RTI 

♦ 

XRE7 

SCAN , P2AC.P2BC , P3AP,P3BP 

XRE7 

P2BP ,POL?LG , P2AP ,P3AC , P3BC 

XRE7 

P4AP  .P4BP.P4AC ,P4BC ,P5BC 

XRE7 

PRBU7, 

TMES  .TIMES  <PftXlHSP5BP 

4t 

XRE7 

SCN7L3 

,P6AC,P6AP,PURGFG,INTPLG,CHG 

XDE7 

POLL, R POL, 0YR,CSUM7, HALT? 
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205  POLL  ***  INTERRUPT  POLLING  ROUTINE  *** 


* 

0183  4F  A  MESP  FCC  /OVER-RIDE  FLAGS  RESET 


0184  56  A 

0185  45  A 

0186  52  A 

0187  2D  A 

0188  52  A 

0189  49  A 

018A  44  A 

018B  45  A 

018C  20  A 

018D  46  A 

018E  4C  A 

018F  41  A 

0190  47  A 

0191  53  A 

0192  20  A 

0193  52  A 

0194  45  A 

0195  53  A 

0196  45  A 

0197  54  A 

0198  20  A 

0199  20  A 

019A  20  A 

019B  20  A 

019C  20  A 

019D  20  A 

019E  20  A 

019F  20  A 

01A0  20  A 

01 A1  20  A 

01A2  20  A 

01A3  20  A 

01A4  20  A 

01A5  20  A 

01A6  20  A 

01 A7  20  A 

01A8  20  A 

01 A9  20  A 

01AA  20  A 

* 

01AB  56  A  MESOVR  FCC 

01AC  41  A 

01AD  4C  A 

01AE  56  A 

01AF  45  A 

01B0  20  A 

01B1  20  A 

01B2  20  A 

01B3  4F  A 

01B4  55  A 

01S5  45  A 

01S6  52  A 

01B7  2D  A 

01B8  52  A 

01B9  49  A 

01 BA  44  A 


/VALVE  OVER-RIDE  SET. 


006  POLL  ***  INTERRUPT  POLLING  ROUTINE 


01BB 

45 

01BC 

20 

01BD 

53 

01BE 

45 

01BF 

54 

01C0 

2E 

01C1 

20 

01C2 

20 

01C3 

20 

01C4 

20 

01C5 

20 

01C6 

20 

01C? 

20 

01C8 

20 

01C9 

20 

01CA 

20 

01CB 

20 

01CC 

20 

01CD 

20 

01CE 

20 

01CF 

20 

01D0 

20 

01D1 

20 

01D2 

20 

0000 

0000 

0001 

0001 

0001 

0002 

0001 

A 

A 

A 

k 

k 

k 

k 

k 

& 

k 

k 

k 

k 

i 

k 

A 

A 

A 

A 

A 

A 

A 

A 

A 

* 

DSCT 

* 

A  CSUMF  RMB 
A  OVR  RMB 
A  HALTF  RMB 
* 

END 


1 

1 

1 


ERRORS  03002 


001  SCAN  ***  DATA  COLLECTING  ROUTINE  *** 


NAM  SCAN  VER .  13  4-15-79  CLAVE 


* 

* 

* 

FILE  1 

NAMES: 

&SC AN  /  SCAN 

(R) 

OPT 

REL 

* 

TTL 

*** 

DATA  COLLECTING 

ROUTINE  *** 

* 

**************************************** 


* 

*  ROUTINE  TO 

COLLECT 

AND  STORE  "l" 

*  DATA 

VALUES 

FOR  USE 

BY  COMPUT 

*  SUBROUTINE. 

* 

(1  X-T 

VALUE  PAIR  /  .6  SEC) 

T* 

***************************************** 

* 

0000 

♦ 

]|c 

PSCT 

0000 

PE 

0000 

A 

SCAN 

LDX 

EPDATA 

CHK  NEXT  TO  LAST  DATA  BUFF 

0003 

A6 

00 

A 

LDAA 

X 

ADDRESS  FOR  0'S, 

0005 

81 

00 

A 

CMPA 

#0 

IF  NOT  0  -  BUFF  OVER¬ 

0007 

27 

03  000C 

BEO 

OVRF 

FLOW 

0009 

7E 

008C 

P 

$ 

JMP 

OVRFLO 

GIVE  OVER  FLOW  MESS 

000 C 

CE 

000A 

A 

OVRF 

LDX 

#10 

000F 

FF 

0000 

D 

£ 

STX 

DTEN 

0012 

86 

20 

A 

LDAA 

#$20 

Y  AXIS/SET  BIT  5 

0014 

B7 

0000 

A 

* 

STAA 

P1BP 

0017 

86 

3C 

A 

LDAA 

#$3C 

START  A/D  CONV. 

0019 

B7 

0000 

A 

STAA 

P1AC 

001C 

01 

NOP 

001D 

01 

NOP 

001E 

86 

34 

A 

LDAA 

#$34 

RESET  BIT 

0020 

B7 

0000 

A 

STAA 

P1AC 

0023 

B6 

0000 

A 

CONV 

LDAA 

P1AC 

CHECK  FOR  CONV. 

0026 

2A 

FB  0023 

* 

BPL 

CONV 

COMPLETE-BIT  7  SET 

0028 

86 

A7 

A 

LDAA 

#167 

002A 

4A 

D1 

DECA 

1  MS  DELAY 

002B 

26 

FD  002A 

BNE 

D1 

002D 

B6 

0000 

A 

LDAA 

P1BP 

GET  UPPER  BYTE  OF  Y 

0030 

84 

0F 

A 

ANDA 

#$0F 

MASK  UPPER  4  BITS 

0032 

F6 

0000 

A 

* 

LDAB 

P1AP 

GET  LSB  OF  Y 

************************ 

*  DIVIDE  T  VALUE  BY 

10 

************************ 

0035 

CE 

0000 

D 

LDX 

#DTEN 

GET  A DDR  OF  HI 

0038 

BD 

0000 

A 

9 

JSR 

DIV16 

BYTE  OF  DIVISOR 

00 3B 

FE 

0000 

A 

LDX 

TDATA 

STORE  1ST  Y  VALUE 

0031 

A7 

00 

A 

STAA 

X 

MSB 

0040 

08 

INX 

0041 

E7 

00 

A 

STAB 

X 

LSB 

94 


002 

SCAN  *** 

DATA  COLLECTING  ROUTINE  *** 

0043 

08 

I  NX 

INCREMENT  POINTER 

0044 

FF 

0000 

A 

* 

STX 

TDATA 

SAVE  NEW  ADDRESS 

0047 

FE 

0002 

D 

LDX 

NUMBTH 

INC  Y  COUNTER 

004A 

08 

I  NX 

004B 

FF 

0002 

D 

* 

STX 

NUMBYH 

004E 

4F 

CLRA 

X  AXIS 

004F 

B7 

0000 

A 

£ 

STAA 

P1BP 

0052 

86 

3C 

A 

LDAA 

#$3C 

START  A/D  CONV. 

0054 

B7 

0000 

A 

STAA 

P1AC 

0057 

01 

NOP 

0058 

01 

NOP 

0059 

86 

34 

A 

LDAA 

#$34 

RESET  BIT 

005B 

B7 

0000 

A 

STAA 

Pi  AC 

005E 

B6 

0000 

A 

CONV1 

LDAA 

P1AC 

CHECK  FOR  CONV. 

0061 

2A 

FB  005E 

4c 

BPL 

CONV1 

COMPLETE-BIT  7  SET 

0063 

86 

A7 

A 

LDAA 

#167 

0065 

4A 

D2 

DECA 

0066 

26 

FD  0065 

4 

BNE 

D2 

0068 

B6 

0000 

A 

LDAA 

P1BP 

GET  MSB  OF  X 

006B 

84 

0F 

A 

ANDA 

#$0F 

MASK  UPPER  4  BITS 

006D 

F6 

0000 

A 

4c 

LDAB 

P1AP 

GET  LSB  OF  X 

0070 

FE 

0000 

A 

LDX 

TDATA 

0073 

A7 

00 

A 

STAA 

X 

STORE  X  VALUE 

0075 

08 

I  NX 

TO  DATA  BUFF 

0076 

E7 

00 

A 

STAB 

X 

0078 

08 

INX 

0079 

FF 

0000 

A 

* 

STX 

TDATA 

INC  BUFF  POINTER 

007C 

B1 

0000 

A 

CMPA 

FPCMVU 

TEST  FOR  END  PT . 

007F 

2A 

03  0084 

4c 

BPL 

A2 

IF=  ,  TEST  LOW  BYT* 

0081 

7E 

0000 

A 

4c 

JMP 

RPOL 

OTHERWISE  RETURN 

0084 

FI 

0000 

A 

A2 

CMPB 

FPCMVL  ' 

END  PT.  ? 

0087 

22 

1C  00A5 

4k 

BHI 

CSCAN 

YES,  END  SCAN 

0089 

7E 

0000 

A 

4k 

JMP 

RPOL 

008C 

86 

04 

A 

OVRFLO 

LDAA 

#$04 

END  SCAN 

008E 

B7 

0000 

A 

STAA 

P2AC 

0091 

7C 

0000 

A 

4k 

INC 

SCNFLG 

SCAN  DONE  IF  SET 

0094 

CE 

00BD 

P 

LDX 

#MO VFLO 

PRINT  OUT  OVER  FLOW 

0097 

DF 

05 

A 

4k 

STX 

$0005 

MESSAGE 

0099 

BD 

B2C3 

A 

JSR 

$B2C3 

009 C 

BO 

B2A0 

A 

JSR 

$B2A0 

009F 

BD 

B38B 

A 

4k 

JSR 

$B38B 

00A2 

7E 

00AD 

P 

JMP 

ENDSC 

END  SCAN 

♦ 


A  CSCAN  LDAA  #$04 


00A5  86  04 


SCAN  DONE 


003  SCAN  ***  DATA  COLLECTING  ROUTINE  *** 


00A7 

B7 

0000 

A 

* 

STAA 

P2AC  SET  INTR.  MASK/PIA 

00AA 

7C 

0000 

A 

* 

INC 

SCNFLG 

00AD 

7F 

0000 

A 

ENDSC 

CLR 

POLFLG  RESET  ENABLE  SCAN  FIG 

00B0 

B6 

0000 

A 

LDAA 

P2BP  KEEP  2  MSB  OF  D/A 

00B3 

84 

03 

A 

ANDA 

#$03 

00B5 

8B 

60 

A 

ADDA 

#%01100000  PEN  UP, CHART  OFF 

00B7 

B7 

0000 

A 

* 

STAA 

P2BF  ELECT.  OFF, SCAN  OFF 

00BA 

?E 

0000 

A 

* 

JMP 

RPOL 

XREF 

P1BP, PI AP , P1AC ,TDATA , FPCMVU , FPCMVL 

XREF 

P2AC, SCNFLG .RPOL.EPDATA ,DIV15 

* 

XREF 

POLFLG, P2BP 

* 

XDEF 

NUMBYH , NUMBYL , SC AN 

00BD  20  A  MOVFLO  FCC  /  **  DATA  BUFFER  FULL  ** 

00BE  2A  A 

00BF  2A  A 

00C0  20  A 

00C1  20  A 

00C2  44  A 

00C3  41  A 

00C4  54  A 

00C5  41  A 

00C6  20  A 

00C7  42  A 

00C8  55  A 

00C9  46  A 

00CA  46  A 

00CB  45  A 

00CC  52  A 

00CD  20  A 

00CE  46  A 

00CF  55  A 

00D0  4C  A 

00D1  4C  A 

00D2  20  A 

00D3  20  A 

00D4  2A  A 

00D5  2A  A 

00D6  20  A 

00D7  20  A 

00  D8  20  A 

00D9  20  A 

00DA  20  A 

00DB  20  A 

00DC  20  A 

00DD  20  A 

00DE  20  A 

00DF  20  A 

00E0  20  A 

00E1  20  A 

00E2  20  A 

00E3  20  A 


AD-A085  909  NAVAL  OCEAN  SYSTEMS  CENTER  SAN  DIEGO  CA 

MICROCOMPUTER-ASSISTED  FLOW-THROUGH  ASV  SYSTEM. (U> 
SEP  79  C  CLAVELL 

UNCLASSIFIED  NOSC/TR-532 _ _ _ 


004  SCAN  ♦**  DATA  COLLECTING  ROUTINE  *** 


00E4 

00E5 

0000 

0000 

0002 

0003 


ERROBS 


20 

A 

20 

A 

* 

DSCT 

0002 

A 

DTEN 

RMB 

0001 

A 

NUMBYH 

RMB 

0001 

A 

NUMBYL 

* 

RMB 

* 

END 

00000 


2 

1 

1 
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N 

NAM  SCAN  TIB.  14  5-10-79  CLAVELL 

* 

*  BILE  NAMES:  &SC|N  /  SC0N  (R) 

* 

OPT  BEL 

* 

TTL  ♦**  DATA  COLLECTING  BOUTINE  *** 

* 

**************************************** 

* 

*  BOUTINE  TO  COLLECT  AND  STOBE  "Y" 

*  DATA  VALUES  70B  USE  BT  COMPUT 

*  SUBROUTINE.  (1  X-Y  VALUE  PAIR  /  .6  SEC) 

* 

***************************************** 

* 

* 

PSCT 

* 

SCAN  LDX  EPDATA  CHE  NEXT  TO  LAST  DATA  BUPP 
LDAA  X  ADDRESS  POR  0  'S  , 

CMPA  #0  IF  NOT  0  -  BUFF  OVER- 

BEQ  OVRF  FLOW 

JMP  OVRFLO  GIVE  OVER  FLOW  MESS 

* 

OVRF  LDX  #10 
STX  DTEN 

* 

LDAA  #$20  T  AXIS/SET  BIT  5 
STAA  P1BP 

* 

LDAA  #$3C  START  A/D  CONV. 

STAA  P1AC 

NOP 

NOP 

LDAA  #$34  RESET  BIT 

STAA  P1AC 

CONV  LDAA  P1AC  CHECK  FOR  CONV. 

BPL  CONV  COMPLETE-BIT  7  SET 

* 

LDAA  #167 

D1  DECA  1  MS  DELAY 

BNE  D1 

* 

LDAA  P1BP  GET  UPPER  BYTE  OF  Y 

ANDA  #$0F  MASK  UPPER  4  BITS 

LDAB  P1AP  GET  LSB  OF  Y 

* 
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*  DIVIDE  T  T1LUI  BY  10 

it*********************** 

LDX  #DTXN  GIT  ADD!  OF  HI 

JSB  DIV16  BYTI  07  DIVISOR 

* 

LDX  TDATA  STORB  1ST  Y  VALDX 

STAA  X  MSB 

INX 

STAB  X  LSB 

INX  INCREMENT  POINTER 

STX  TDATA  SAVE  NEV  ADDRESS 

* 

LDX  NUMBYH  INC  Y  COUNTER 
INX 

STX  NUMBYH 

* 

CLRA  X  AXIS 
STAA  P1BP 

* 

LDAA  #$3C  START  A/D  CONV. 

STAA  P1AC 

NOP 

NOP 

LDAA  #$34  RESET  BIT 

STAA  P1AC 

C0NV1  LDAA  P1AC  CHECK  FOR  CONV. 
BPL  C0NV1  COMPLETE-BIT  7  SET 

* 

LDAA  #167 
D2  DECA 
BNE  D2 

* 

LDAA  P1BP  GET  MSB  OF  X 
ANDA  #$0F  MASK  UPPER  4  BITS 
LDAB  P1AP  GET  LSB  OF  X 

* 

LDX  TDATA 
STAA  X 
INX 

STAB  X 
INX 

STX  TDATA 

* 

JSR  0UT1 
JSR  OUT 

CMPA  FPCMVU  TEST  FOR  END  PT. 
BEQ  A2  IF*,  TEST  LOW  BYTE 

* 

JMP  RPOL  OTHERWISE  RETURN 

* 

A2  CMPB  FPCMVL  END  PT.  ? 

BCC  CSCAN  YES,  END  SCAN 

* 

JMP  RPOL 

* 

CVRFLO  LDAA  #$04 
STAA  P2AC 
INC  SCNFLG 

> 


PRINT  OUT  OVER  FLOW 
MESSAGE 
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LDX  #MOVFLO 
STX  $0005 

i 

JSR  $B2C3 
JSR  $B2A0 
JSR  $B38B 


END  SCAN 

SCAN  DONE  IF  SET 


STORE  X  VALUE 
TO  DATA  BUFF 

INC  BUFF  POINTER 


IND  SCAN 


JMP  SNDSC 

* 


CSCAN  LDAA  #$04  SCAN  DONE 
STAA  P2AC  SET  INTR.  MAS I/PI A 
LDAA  #$43 
JSR  $E1D1 

* 


out  pur  c' 


INC  SCNPLG 

* 


INDSC  CLR  P0LPL6  RESET  ENABLE  SCAN  FLG 

LDAA  P2BP  EEEP  2  MSB  OP  D/A 

ANDA  #$03 

ADDA  #*01100000  PEN  DP, CHART  OPP 

STAA  P2BP  ELECT.  OPT. SCAN  OPP 

* 

JMP  RPOL 

• 

OUT  STAA  SATA 
STAB  SATB 
LDX  #SATA 
JSR  $E0C8 
JSR  CR1 
LDAA  SATA 
LDAB  SATB 
RTS 

« 

ODT1  LDX  #PPCMTU 
JSR  $E0C8 
JSR  CR1 
RTS 

* 

CR1  LDX  #CR 
JSR  $E0?E 
RTS 

* 

SATA  RUB  1 
SATB  RMB  1 
CR  PCB  $D,$A,4 
* 

XREP  PI BP ,P1AP, PI AC , TDATA , PPCMTU , PPCMTL 
XREP  P2AC , SCNPLG , RPOL, EPDAT A , DIT1 6 
XREP  P0LPLG.P2BP 

* 

* 

XDEP  NUMBYH , NUMBTL .SCAN 

* 

MOTPLO  PCC  /  **  DATA  BUTTER  PULL  ** 

* 

DSCT 

DTEN  RMB  2 
NUMBYH  RMB  1 
NUMBYL  RMB  1 
* 

* 


END 

fe 

1 
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001  HALT  ***  PROGRAM  HALT  ROUTINE  *** 


0000 

00zicE 

00e3TBD 
000$  96 
0008: BD 
000I??B6 
000E&4D 

000Fy26 

00114>?E 

001^ft7F 
0017*  7F 
00lA*sCE 
001D^BD 
0020^86 
002«BD 

00252B6 

0028>.FE 

002B*;A? 

002Dfc'?C 
0030C,B6 
0033  91 
0035  27 

0037  B6 
003A  B6 

003D  B6 
0040*148 
0041  2B 

0043  B6 
0045  2A 


NAM  HALT  TER. 2  8-30-73  C LA  VEIL 

♦ 

*  FILE  NAMES:  S.HALT  (S)  /  HALT  (R) 

* 

OPT  REL 

* 

TTL  ***  PROGRAM  HALT  ROUTINE  *** 

* 

************************************************* 

*  THIS  ROUTINE  HALTS  THE  MAIN  PROG  AT  THE  START 

*  OF  A  NEW  CYCLE  AND  ALLOWS  UP  TO  20  PARAMETERS 

*  TO  BE  CHANGED.  PROG  IS  RESTARTED  AT  CYCLE  1 

*  SET  S  =  NEXT  QUESTION  TO  BE  CHNGED 

*  GO  =  NO  MORE  CHANGES 

*  ************************* 

*  HALT  MAY  BE  USED  TO  SIMPLY  STOP  EXECUTION  FOR 

*  A  WHILE.  PROG  IS  RESTARTED  WITH  "GO". 
************************************************* 

* 

* 


* 

PSCT 

0000 

A 

HALT 

LDX 

#MES  50 

CHANGE  MESS. 

0000 

A 

JSR 

PRINT 

01 

A 

LDAA 

#1 

1  #  BEFORE  DEC  PT 

0000 

A 

JSR 

SB  IN 

READ  KEYBOARD 

0000 

A 

LDAA 

BINLO 

TSTA 

A=l? 

03  0014 

BNE 

CHG 

YES :  CHANGE  PARAM 

006E 

P 

$ 

JMP 

GOCHX 

NO:  WAIT  FOR  "GO" 

0000 

D 

CHG 

CLR 

TX 

QUEST  COUNTER  POINTER 

0001 

D 

CLR 

TX+1 

0000 

A 

CHG1 

LDX 

#MES73 

GET  #  OF  QUEST 

0000 

A 

JSR 

PRINT 

TO  BE  CHANGED 

02 

A 

LDAA 

#2 

0000 

A 

4e 

JSR 

EBIN 

0000 

A 

LDAA 

BINLO 

0000 

D 

LDX 

TX 

00 

B 

4 

STAA 

QBUF.X 

QUEST  #  INTO  BUFFER 

0001 

D 

INC 

TX+1 

INC  POINTER 

0001 

D 

LDAA 

TX+1 

15 

A 

CMPA 

#21 

MAX  OF  20  PARAM 

14  004B 

BEQ 

GONOW 

CBANGES 

JO  \V 
0000 

A 

LDAA 

P8BP 

DUMMY  READS  FOR 

W 

A 

$ 

LDAA 

P5BP 

SET  S  S  GO 

Hi* 

A 

OLOOP 

LDAA 

P8BC 

"SET  S"  ? 

ASLA 

D7  031A 

BMI 

CHG1 

YES:  NEXT  QUEST 

0000 

A 

LDAA 

P5BC 

"GO"? 

F5  003D 

BPL 

QLOOP 

NO:  KEEP  POLLING 

♦ 

YES :N0  MORE  CHANGES 

* 
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zz 2  HALT  *♦*  PROGRAM  HALT  ROUTINE  ♦** 


0048 

B6 

0000 

A 

* 

LDAA 

P5BP 

DUMMY  READ 

004B 

7A 

0001 

D  SONOtf 

DEC 

TX+1 

004E 

FE 

0000 

D 

LDX 

TX 

GET  BUFF  OFFSET 

0051 

A6 

00 

B 

LDAA 

QBUF.X 

0053 

BD 

0000 

A 

JSR 

OFIX 

QUEST  RETRIEVAL  SUBR. 

0056 

7D 

0001 

D 

tst 

TX+1 

DONE? 

0059 

26 

F0  004B 

* 

BNE 

30N0V 

NO:  LOOP  BACK 

005B 

7D 

0000 

A 

TST 

INTFL3 

CALLED  FROM  INIT? 

005E 

26 

2D  00SD 

BNE 

G02 

YES:  RTS 

0060 

BD 

0000 

A 

JSR 

CLSABF 

CLR  SAMP  BUF/COMP 

0063 

FE 

0000 

A 

LDX 

TIMBUF 

0066 

FF 

0000 

A 

STX 

TMBUF 

REINITIALIZE  TIME  BUF 

0069 

86 

01 

A 

LDAA 

#1 

006B 

B7 

0000 

A 

£ 

STAA 

CNTR1 

RESET  CNTR1 

006E 

CE 

0000 

A  GOCHE 

LDX 

#MES60 

PUSH  "GO"  MESSG . 

0071 

86 

01 

A 

LDAA 

#1 

0073 

B7 

0000 

A 

STAA 

BLOCK 

0076 

BD 

0000 

A 

JSR 

SUB3 

LF 

0079 

BD 

0000 

A 

JSR 

PRINT1 

007C 

BD 

0000 

A 

JSR 

SUBS 

007F 

BD 

0000 

A 

$ 

JSR 

SUB3 

0062 

7F 

0000 

A 

CLR 

EALTF 

CLR  HALT  FLAG 

0085 

B6 

0000 

A 

LDAA 

P5BP 

DUMMY  READ 

0088 

B6 

0000 

A  301 

LDAA 

P5BC 

"GO"  PUSHED? 

006B 

2A 

FB  0083 

* 

BPL 

G01 

NO:  LOOP 

006D 

39 

G02 

RTS 

* 


* 

XREF  MES50.MES50 

XREF  PRINT1 , PRI NT , KBI N ,  SUB3,P5BP,P5BC 
XREF  BLOCK, BINLO,BINHI,BCDLO,BCDHI,OFIX 
XREF  STCN1H ,STCN2H,STCN3H,STCN4H,FRST0F 
XREF  HALTF,VPRECY,ZINK,TIMBUF,MES79 
XREF  CLSABF ,CNTR1 ,TMBUF,P8BC ,P8BP , INTFL5 

■  * 

XDEF  HALT.CHG.OBUF 

* 

* 

DSCT 

* 

000 2  I  TX  RMB  2 

* 

BSCT 

* 

0314  A  OBUF  RMB  20  QUEST  #  BUFF 

4 

* 

END 


0000 

0000 

0000 

0000 


ERRORS  00000 
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1 


111  QflZ  *♦*  QUESTION  REPEAT  SUBROUTINE  *•* 


* 

NAM 

QFIX 

TER.l  7-30-79  CL A FILL 

*  FILE  NAMES:  &QFIX  (S)  /  QFIX  (R) 

* 

* 

OPT 

REL 

TTL 

***  QUESTION  REPEAT  SUBROUTINE  *♦* 

▼ 

***** *** ***  * ** **** ** ****************** **** ******* 

* 

ROUTINE 

TO  ENABLE 

PARAMETER  CHANGES 

* 

TO  BE  MADE.  CALLED  FROM  POLL  OR  HALT. 

**************  *********************************** 
* 

0000 

?c 

0002 

D 

* 

QFIX 

* 

INC 

F2 

SET  FLAG 

0003 

48 

AS  LA 

(A*2) 

0004 

B7 

0001 

D 

STAA 

CONST+1 

OFFSET  POINTER 

0007 

7? 

0000 

D 

CLR 

CONST 

000A 

FE 

0000 

D 

LDX 

CONST 

OFFSET  INTO  X 

000D 

EE 

00 

A 

LDX 

J0,X 

ADDR  OF  OUEST  INTO  X 

* 

FROM  JUMP  TABLE 

000? 

6E 

00 

A 

* 

JMP 

0,X 

JUMP  TO  QUEST. 

0011 

7? 

0002 

D 

* 

RTNPT 

* 

CLR 

F2 

CLR  FLAG 

0014 

39 

* 

RTS 

* 

* 

XREF 

J0 

* 

XDEF 

QFIX.F2, 

RTNPT 

0000 

* 

* 

DSCT 

0000 

0002 

A 

CONST 

RMB 

2 

0002 

0001 

A 

F2 

RMB 

1 

ERRORS  00000 


END 


T 

NAM  CT  YER.2  4-7-78  C LA YELL 
OPT  RXL 

* 

*  FILE  NAMES:  &CT  (S)  /  CT  (S) 

* 

TTL  ***  TOGGLE  SUBROOTINE  *** 

* 

*  TOGGLES  SHIFT  LINE  OF  ELAPSED  TIMER. 

'  OS ED  BT  PROGM. 

* 

CT  LDAA  #$3E  SET  BIT 
STAA  P6BC 

* 

LDX  #23  DELAY 
DEL  DEI 
BNE  DEL 

* 

LDAA  #$36  CLR  BIT 
STAA  P6BC 

* 

RTS 

* 

XREF  P6BC 

* 

XDEF  CT 

* 

END 

§ 

! 
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SECTION  IV: 
Computing  Routine 
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001  COMP  ***  DATA  COMPUTING  BOUT INI  *** 


NAM 

COMP 

TER. 3. 2  ALLEN  2-7-79 

♦ 

TER 

.  19 

MODIFIED  BY  CLATELL  4-27-79 

* 

OPT 

EEL 

*  PILE  NAMES 

* 

:  ACOMP(S)  /  COMP(R) 

* 

TTL 

***  DATA  COMPUTING  ROUTINE  *** 

00PC 

* 

* 

ORG 

$00  FC 

00FC 

0080 

A 

SABF 

* 

RMB 

128 

PLAIN  SAMPLE  PEAK  ARIA 

0000 

* 

BSCT 

0000 

0002 

A 

MUI1 

RMB 

2 

0002 

0002 

A 

MUL2 

RMB 

2 

* 

MULTIPLY  &  DIVIDE  BUFF 

0004 

0002 

A 

MU13 

RMB 

2 

0006 

0002 

A 

MUL4 

RMB 

2 

0002 

B 

DIT2 

EOU 

MUL2 

0000 

B 

D  in 

EQU 

MUL1 

0004 

B 

DIT3 

EQU 

MUL3 

0008 

0010 

A 

CONBF 

RMB 

16 

CONCENTRATION  BUFF 

0018 

0002 

A 

BINBUF 

RMB 

2 

BIN  TO  ASCII  CONT. 

001A 

0008 

A 

LOWECO 

RMB 

8 

LON  VALUE  FOR  EACH  ELEMENT 

0022 

0008 

A 

HIECO 

RMB 

8 

HIGH  VALUE  FOR  EACH  ELEMEN 

002A 

0008 

A 

SAAIA 

* 

RMB 

8 

BUFF  FOR  DIVISOR 

0000 

* 

DSCT 

0000 

0028 

A 

PRBUF 

* 

RMB 

40 

0000 

A 

YVAL 

EOU 

0 

//Y  VALUE  OFFSET  IN  DATA  A 

0002 

A 

XTA1 

EQU 

2 

//X  VALUE  OFFSET  IN  DATA  A 

oA3& 

* 

0028 

0004 

A 

ABEA 

RMB 

4 

002C 

0002 

A 

BINTP1 

RMB 

2 

002E 

0002 

A 

BINTP2 

RMB 

2 

0030 

0002 

A 

TPC16 

RMB 

2 

0032 

0001 

A 

ELNUM1 

RMB 

1 

0033 

0001 

A 

ELNUM 

RMB 

1 

0034 

0001 

A 

CTCLE 

RMB 

1 

0035 

0001 

A 

SUBSMP 

RMB 

1 

0036 

0001 

A 

SAMPLE 

RMB 

1 

003? 

0002 

A 

CTNO 

RMB 

2 

CURRENT  Y  A DDR 

0039 

0002 

A 

CPTNO 

RMB 

2 

CURRENT  X  A DDR 

003B 

0002 

A 

FPTNO 

RMB 

2 

X  ADDR  OF  FIRST  POINT  ON  P 

003D 

0002 

A 

LPTNO 

RMB 

2 

X  ADDR  OF  LAST  POINT  ON  PE 

003F 

0002 

A 

CXTAL 

RMB 

2 

CURRENT  X  VALUE 

0041 

0002 

A 

FX7AL 

RMB 

2 

FIRST  PT  IN  PEAX 

0043 

0002 

A 

LXTAL 

RMB 

2 

LAST  PT  IN  PEAX 

0045 

0001 

A 

CNTB4 

RMB 

1 

0046 

0001 

A 

BITCNT 

RMB 

1 

0047 

0001 

A 

XQ 

BMB 

1 

0048 

0002 

A 

PTBEG1 

RMB 

2 

004A 

0002 

A 

PTBEG2 

RMB 

2 

004C 

0001 

A 

FLAG1 

RMB 

1 
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002  COMP  ***  Oi II  COMPUTING  ROUTINE  ♦** 


004D 

0041 

004? 

0050 

0052 

0054 

0056 


0058 

005A 

005C 

005D 

005? 

005? 

0060 

0061 

0062 

0063 

0064 

0068 

006A 

006C 

006? 

0070 

0072 

0074 

0075 

0076 

0077 

0078 

0079 

007A 

0092 

0094 

0096 

0097 


0001 

0001 

0001 

0002 

0002 


A 

A 

A 

A 

A 


ONIS 

TINS 

BUND 

TPT1 

TPT2 


RMB 

RMB 

RMB 

RMB 

RMB 


0002 

A  TPT3 

RMB 

0002 

A  TPT4 

RMB 

0050 

D  XI 

EQU 

0052 

D  12 

EOU 

0054 

D  11 

100 

0056 

D  T2 

EQU 

0002 

A  EX 

RMB 

0002 

A  T 

RMB 

0001 

A  SLOPE 

RMB 

0001 

A  SABOFF 

RMB 

0001 

A  BITBOU 

RMB 

0001 

A  BIBUND 

RMB 

0001 

A  BITINS 

RMB 

0001 

A  BIONES 

RMB 

0001 

A  HIT? 

RMB 

0001 

A  SIGN 

RMB 

0004 

A  XA 

RMB 

0002 

A  SAA 

RMB 

0002 

A  SAC 

RMB 

0002 

A  TA 

RMB 

0002 

A  0R1 

RMB 

0002 

A  R1 

RMB 

0002 

A  R2 

RMB 

0001 

A  ZESUP 

RMB 

0001 

A  EBFLAG  BMB 

0001 

A  Z1F 

RMB 

0001 

A  CADF 

RMB 

0001 

A  COPF 

RMB 

0001 

A  LEAD? 

RMB 

0018 

A  TIMBU1 

'  RMB 

0002 

A  TMBUF 

RMB 

0002 

A  SATX 

RMB 

0001 

A  SATA 

RMB 

0001 

A  INTCAL  BMB 

07C6 

A  TEND 

EQU 

1 

1 

1 

2 

2 

2 

2 

TPT1 

TPT2 

TPT3 

TPT4 

2 

2 

1 

1 

1 

1 

1 

1 

1 

1 

4 

2 

2 

2 

2 

2 

2 

1 

1 

1 

1 

1 

1 

24 

2 

2 

1 

1 

$07  C6 


/SIGN  FLAG  FOR  MUL/DIY 


HR  »  MIN  &  SBC  BUFF 
POINTIR  TO  TIMBUF 


«  OF  DATA  PT'S  AT  1  PT/.6 
(0943  -  017D)  *  07C6  (1990) 


0000 


PSCT 

* 

******* ************** 
♦ENTRY  POINT  AND  DRIYER 
********************** 
* 


0000  7D  0000  A 


0003 

0005 

0008 

000B 

000? 

0011 

0014 


27  10  0015 
7F  0076  D 
7F  0077  D 
?F  0078  D 
7F  0079  D 

BD  04CF  P 
39 


1ST 

CNTR2 

BEQ 

CMPT0 

CLR 

Z1F 

CLR 

CADF 

CLR 

COPF 

CLR 

LEADT 

JSR 

RTS 

CLSABF 

YALID  DATA  FLAG 
0  IF  GOOD  DATA 
ITS  YALID 
CLR  ERROR  FLAGS 


//  NOT  YALID 
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003  COMP  ***  DATA  COMPUTING  SOUTINE  *** 


******************** 

*?IND  FIBST  PEAK  IN  CURVE 
******************** 

* 


0015 

CE 

0000 

A 

CMPT0 

LDX 

#DATA 

/FIRST  POINT  TO  LOOK  AT 

0018 

FF 

003? 

D 

STX 

CTNO 

001B 

7? 

0063 

D 

CLH 

SIGN 

001 E 

BD 

0093 

P 

CMPT1 

JSR 

FINDPK 

/FIND  FIRST  PEAK  IN  CURVE 

0021 

?D 

0033 

D 

TST 

ELNUM 

/THIS  PEAK  #  0=NONE 

0024 

2? 

0B  0031 

BEQ 

CMPT2 

/NO  MORE 

0026 

BD 

0349 

P 

JSR 

ADJUST 

/ADJUST  LINE  AT  BOTTOM 

0029 

BD 

0400 

P 

JSR 

INTGRT 

/INTEGRATE  ONE  PEAK 

002C 

BD 

04DA 

P 

JSR 

SAVRES 

/SAVE  INTEGRATED  RESULTS 

002F 

20 

ED  001E 

BRA 

CMPT1 

/NEXT  PEAK 

0031 

B6 

0000 

A 

CMPT2 

LDAA 

CNTR1 

0034 

B1 

0000 

A 

CMPA 

VPRECI 

/NEED  UP  TO  8  CYCLES 

003? 

27 

19  0052 

* 

BEQ 

CMPT3 

/READY  TO  CALC  CONCS 

0039 

FE 

0092 

D 

LDX 

TMBUF 

SAVE  SAMPLE  AOUIS.  TIME 

003C 

B6 

0000 

A 

LDAA 

HR 

003? 

A? 

00 

A 

STAA 

0  *x 

0041 

08 

INX 

0042 

B6 

0000 

A 

LDAA 

MIN 

0045 

A7 

00 

A 

STAA 

0.X 

0047 

08 

INX 

0048 

B6 

0000 

A 

LDAA 

SEC 

004B 

A7 

00 

A 

STAA 

0,X 

004D 

08 

INX 

004E 

FF 

0092 

D 

$ 

STX 

TMBUF 

UPDATE  POINTER 

0051 

39 

RTS 

/NEED  /MORE  CYCLES 

*******  ********** ** * 


♦CALCULATE  CONCENTRATIONS 

******************** 


0052 

7F 

0035 

D 

CMPT3 

CLR 

SUBSMP 

0055 

?F 

0097 

D 

CLR 

INTCAL 

0058 

?F 

0074 

D 

CLR 

ZESUP 

005B 

CE 

007A 

D 

LDX 

NTIMBUF 

INITIALIZE  POINTER 

005E 

FF 

0092 

D 

STX 

TMBUF 

0061 

7C 

0097 

D 

INC 

INTCAL 

0064 

BD 

055B 

P 

JSR 

CLSXA 

CLR  DIVISOR  BUFF 

006? 

BD 

0525 

P 

CMPT4 

JSR 

CALCON 

/CALCULATE  CONCENTRATIONS 

006A 

7D 

009? 

D 

TST 

INTCAL 

006D 

27 

08  007? 

BEQ 

CMPT6 

006F 

?F 

0097 

D 

CLR 

INTCAL 

0072 

7F 

0035 

D 

CLR 

SUBSMP 

0075 

20 

F0  0067 

* 

BRA 

CMPT4 

007? 

BD 

070D 

P 

CMPT6 

JSR 

PRTSMP 

/PRINT  SAMPLE 

007A 

7C 

0036 

D 

CMPT5 

INC 

SAMPLE 

007D 

7C 

0035 

D 

INC 

SUBSMP 

0080 

B6 

0000 

A 

LDAA 

VPRECY 

//LAST  SAMPLE 

0083 

4A 

DECA 

0084 

B1 

0035 

D 

CMPA 

SUBSMP 

008? 

26 

DE  006? 

BNE 

CMPT4 

/NO,  NEXT  ONE 

0089 

BD 

04CF 

P 

JSR 

CLSABF 

008C 

CE 

007A 

D 

LDX 

NTIMBUF 

008F 

FF 

0092 

D 

STX 

TMBUF 

REINITIALIZE  POINTER 
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004  COMP  ♦*♦  DAT!  COMPUTING  IOUTINI  *♦♦ 


0092  39  HTS  /TIS ,  DONE  VITE  THIS  GBOUP 

******************** 

♦FIND  THE  NEXT  PEAK  IN  THE  CUBES 
♦PUT 

♦fIBST  POINT  OPPSET  IN  PPTNO 
♦LAST  POINT  OPPSET  IN  LPTNO 
♦ELEMENT  #  IN  ELNUM 
♦SET  ELEMENT  #  TO  0  If  NO  MOBE  PEAKS 
******************** 

* 

* 


* 


0093 

BD 

01CP 

P 

FINDPK 

JSB 

FNDPOS 

//FIND  A  POSITIVE  SLOPE 

0096 

5D 

TSTB 

0097 

27 

2B  00C4 

BEO 

PIND3 

//END  OP  CURYES 

0099 

PE 

0037 

D 

LDX 

CTNO 

/REMEMBER  FIRST  POINT 

009C 

08 

INK 

009D 

08 

I  NX 

009E 

FP 

003B 

D 

STX 

PPTNO 

/IN  THIS  PEAK 

00A1 

PE 

003P 

D 

LDX 

CXTAL 

00A4 

FP 

0041 

D 

STX 

PXTAL 

00A7 

BD 

00  P8 

P 

JSR 

PNDEND 

FIND  END  PT  OP  CURTE 

00AA 

5D 

TSTB 

00AB 

27 

17  00C4 

BEQ 

PIND3 

00AD 

PE 

0037 

D 

LDX 

CTNO 

/LAST  POINT  IN  THIS  PEAK 

00B0 

08 

I  NX 

00B1 

06 

INX 

00B2 

PP 

003D 

D 

STX 

LPTNO 

00B5 

PE 

003P 

D 

LDX 

CXTAL 

/LAST  X  AXIS  VALUE 

00B8 

PP 

0043 

D 

* 

STX 

LXTAL 

00BB 

BD 

02EP 

P 

4c 

JSR 

VCHELM 

DECIDE  WHICH  ELEMENT 

00BE 

7D 

0033 

D 

1ST 

ELNUM 

00C1 

27 

05  00C8 

4c 

BEQ 

PIND2 

00C3 

39 

BTS 

00C4 

7F 

0033 

D 

TIND3 

CLB 

ELNUM 

//NO  MORE  CURVES 

00C7 

39 

RTS 

♦  CHECK  POB 

END  OF  DATA 

00C8 

BD 

00D1 

P 

PIND2 

JSB 

ENDAT 

00CB 

5D 

TSTB 

00CC 

27 

P6  00C4 

BEQ 

PIND3 

//OUT  OP  POINTS  —  RETURN 

00CE 

7E 

0093 

P 

JMP 

PINDPK 

//KEEP  LOOKING 

* 


♦  CHECK  POB  END  OP  DATA 

♦  NEED  AT  LEAST  10  MOBE  TALID  T  POINTS 

♦  NEED  CPTNO  O  TEND 

♦  RETUB N: 

♦  0  IP  AT  END  OP  DATA 

♦  1  IP  NOT  AT  END  OP  DATA 

♦ 

* 

* 


00D1 

CE  0000 

A  ENDAT 

LDX 

#DATA 

00D4 

PP  0000 

A 

* 

STX 

TDATA 

CURRENT  PT  ADDR. 
MINUS  STARTING  PT 

ADDR 

00D7 

B6  0037 

D 

LDAA 

CTNO 

110 

-  #  OF  PT'S  CH'ED  SO 

PAR 

-  -'TtEjX' ■  ~\rii*i*Rr  ~i 


005  COMP  ***  DATA  COMPUTING  ROUTINE  *** 


00DA 

F6 

0038 

D 

* 

LDAB 

CYNO+1 

00DD 

F0 

0001 

A 

SUBB 

TDATA+1 

00E0 

B2 

0000 

A 

* 

SBCA 

TDATA 

00E3 

CB 

28 

A 

ADDB 

#40 

00E5 

24 

01  00E8 

BCC 

ENDAT1 

//CARRY 

00E7 

4C 

INCA 

00E8 

CE 

07C6 

A 

ENDAT1 

LDX 

#TEND 

//NUMBER  OF  A DDR 

00EB 

BD 

0AA9 

P 

JSR 

CMP16 

//COMPARE  THEM 

00EE 

Cl 

FF 

A 

CMPB 

#$FF 

00F0 

26 

03  00F5 

BNE 

ENDAT2 

//NOT  END  YET 

00F2 

C6 

00 

A 

LDAB 

#0 

00F4 

39 

RTS 

00F5 

C6 

01 

A 

ENDAT2 

LDAB 

#1 

00F7 

39 

* 

RTS 

* 

*  MOTE 

ALONG 

THE  PEAK 

FOUND  BY  FNDPOS 

*  UNTIL  FIND  THE  END  OF  PEAK  THEN  STORE 

*  THAT  POINT  IN  CTNO  &  CXVAL 

* 


'S  TO  END 


♦ 


00F8 

7F 

004C 

D 

FNDEND 

CLR 

00FB 

7F 

0045 

D 

C10 

CLR 

00FE 

7F 

0046 

D 

CLR 

0101 

7F 

0047 

D 

CLR 

0104 

FE 

0037 

D 

C15 

LDX 

0107 

FF  0048 

D 

STX 

010A 

08 

INX 

010B 

08 

I  NX 

010C 

08 

INX 

010D 

08 

INX 

010E 

FF 

004A 

D 

£ 

STX 

0111 

7C 

0045 

D 

C20 

* 

INC 

0114 

BD 

019E 

P 

JSR 

0117 

81 

02 

A 

CMP  A 

0119 

27 

17  0132 

BEQ 

011B 

7D 

004C 

D 

TST 

0UE 

26 

04  0124 

BNE 

0120 

81 

01 

A 

CMPA 

0122 

26 

3C  0160 

£ 

BNE 

0124 

B6 

0047 

D 

SKAl 

LDAA 

0127 

81 

05 

A 

CMPA 

0129 

27 

31  0169 

* 

BEQ 

012B 

7D 

004C 

D 

TST 

012E 

26 

14  0144 

BNE 

0130 

20 

0B  013D 

* 

BRA 

0132 

7C 

0046 

D 

HITS 

INC 

0135 

7F  0047 

D 

CLR 

0138 

7D  004C 

D 

TST 

FLAG1 

CNTR4 

HITCNT 

EO 

CTNO 

PTREG1 

SET  UP  TEMP  T  VALUE 
BUFF 


PTREG2 

CNTR4 

START  LOOP 

NGPTCP 

#2 

HITS 

FLAG1 

SKAl 

#1 

C25 

PT1>PT2  ? 

NO:  DO  WE  HATE  2  HITS  YET? 

NO:  PT1=PT2  ? 

EQ 

#5 

sue 

YES : 

DO  WE  HATE  5  PT'S  IN  LINE? 
YES:  SUCCESS, FOUND  END 

FLAG1 

A10 

C30 

2  HITS  YET? 

HITCNT 

IQ 

FLAG1 
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006  COMP  ***  DATA  COMPUTING  ROUTINE  *** 


013B 

26 

0?  0144 

* 

BNI 

A10 

013D 

B6 

0046 

D 

C30 

LDAA 

HITCNT 

2  HITS  TET? 

0140 

81 

02 

A 

CMPA 

#2 

TESs  THIS  IS  TOP  07  PEAK 

0142 

2? 

48  018C 

* 

BEQ 

C40 

0144 

BD 

02AD 

P 

110 

JSR 

INC REG 

MOTE  TO  NEXT  PT 

014? 

B6 

0045 

D 

LDAA 

CNTR4 

014A 

81 

0A 

A 

CMPA 

#10 

DONE  10  LOOPS  TET? 

014C 

26 

CS  0111 

* 

BNE 

C20 

NO:  LOOP  AGAIN 

014E 

B6 

0046 

D 

LDAA 

HITCNT 

T'IS :  5  OR  MORE  HITS? 

0151 

81 

04 

A 

CMPA 

#4 

0153 

22 

22  017? 

* 

BGT 

C35 

0155 

72 

0037 

D 

LDX 

CTNO 

NO:  UPDATE  X  TALUE 

0158 

EE 

02 

A 

LDX 

XTAL.X 

01 5A 

77 

0037 

D 

* 

STX 

CX7AL 

015D 

C6 

01 

A 

LDAB 

#1 

SUCCESS  -  RETURN 

015F 

39 

* 

RTS 

0160 

BD 

02CC 

P 

C25 

JSR 

NEXTPT 

MOTE  TO  NEXT  PT 

0163 

5D 

TSTB 

END  OF  DATA  BUFF  ? 

0164 

27 

25  018B 

BEQ 

C45 

TES:  DONE-  RETURN 

0166 

72 

0078 

P 

4k 

JMP 

7NDEND 

START  OTER 

0169 

7E 

004A 

D 

sue 

LDX 

PTREG2 

FOUND  ENDPT  OP  PEAT 

016C 

77 

0037 

D 

STX 

CTNO 

016P 

EE  02 

A 

LDX 

XTAL.X 

0171 

77 

0037 

D 

4K 

STX 

CXTAL 

0174 

C6 

01 

A 

LDAB 

#1 

0176 

39 

4k 

RTS 

017? 

BD 

00D1 

P 

C35 

4c 

JSR 

ENDAT 

END  07  DATA  BU7P? 

017A 

5D 

TSTB 

017B 

27 

0E  018B 

BEQ 

C45 

017D 

7E 

004A 

D 

LDX 

PTREG2 

NO:  RESET  CTNO  TO 

0180 

77 

0037 

D 

STX 

CTNO 

LAST  PT 

0183 

EE 

02 

A 

LDX 

XTAL.X 

0185 

77 

0037 

D 

4c 

STX 

CXTAL 

UPDATE  X  TALUE 

0188 

?E 

007B 

P 

4< 

JMP 

C10 

START  OTER 

018B 

39 

C45 

4k 

RTS 

018C 

7E 

004A 

D 

C40 

LDX 

PTREG2 

RESET  CTNO 

0187 

77 

0037 

D 

STX 

CTNO 

0192 

?C 

004C 

D 

INC 

7LAG1 

0195 

77  0045 

D 

CLR 

CNTR4 

0198 

77 

0047 

D 

CLR 

EQ 

019B 

7E 

0104 

P 

4t 

JMP 

C15 

0192 

7E  0048 

D 

4k 

NGPTCP 

LDX 

PTREG1 

01A1 

A6 

00 

A 

LDAA 

0.X 
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007  COMP  ***  DATA  COMPUTING  ROUTINI  *** 


01A3 

16 

01 

A 

LDAB 

l.X 

01A5 

FE 

004A 

D 

IDS 

PTREG2 

01A8 

IE 

00 

A 

* 

LDX 

0.X 

01AA 

BD 

0AA9 

P 

* 

JSR 

CMP16 

01AD 

5D 

TSTB 

01AE 

27 

09  01B9 

BIO 

C55 

X-AB  ? 

01B0 

Cl 

01 

A 

CMPB 

#1 

X>AB 

01B2 

27 

03  01B7 

B1Q 

C50 

01B4 

86 

02 

A 

* 

LDAA 

#2 

X<AB 

01B6 

39 

* 

RTS 

01B7 

4F 

C50 

C1RA 

01B8 

39 

* 

RTS 

01B9 

7C 

0047 

D 

C55 

INC 

IQ 

01BC 

86 

01 

A 

LDAA 

#1 

01BE 

39 

♦ 

RTS 

01BF 

FE 

0039 

D 

* 

NEXPNT 

LDX 

CPTNO 

01C2 

08 

I  NX 

01C3 

08 

I  NX 

01C4 

08 

I  NX 

01C5 

08 

INX 

01C6 

FF 

0039 

D 

* 

STX 

CPTNO 

01C9 

EE 

00 

A 

LDX 

0.X 

01CB 

FF 

003F 

D 

* 

STX 

CXYAL 

01CE 

39 

RTS 

* 


* 

* 

♦ 

*  SEARCH  FOR  THE  BEGINNING  OF  A  PEAK  DEFINED 

*  BT  5  POINTS  WITH  POSITIVE  SLOPE  OUT  OF  10 

*  CONSECUTIVE  POINTS  STARTING  AT  CURRENT  POINT. 

* 


01CF 

7F 

0045 

D 

FNDPOS 

CLR 

CNTR4 

01D2 

7F 

0046 

D 

CLR 

HITCNT 

01D5 

7F 

0047 

D 

* 

CLR 

EO 

01D8 

FI 

0037 

D 

LDX 

CTNO 

01DB 

FF 

0048 

D 

STX 

PTREG1 

INITIALIZE  PTREG 

01DE 

08 

INX 

01DF 

08 

INX 

&  PTREG2  TO  1ST 

0110 

08 

INX 

&  2ND  PT'S  TO 

01E1 

08 

INX 

COMPARE 

01E2 

FF 

004A 

D 

* 

STX 

PTREG2 

01E5 

?C 

0045 

D 

ENT 

* 

INC 

CNTR4 

0118 

BD 

0234 

P 

JSR 

PTCMP 

DO  PT  COMPARISONS 

* 


008  COMP  ***  OAT  A  COMPUTING  ROUTINE  *** 


0110  27  00  01PC 

BIQ 

BIT 

TISt  INC  BIT  COUNTER 

01 IT  81  01 

A 

CMPA 

#1 

A-l? 

01T1  26  17  020A 

* 

BN1 

FP 

NO:  CBX  FOR  BUFF  END 

01T3  B6  0047 

0 

LOAA 

IQ 

IQ  »  37 

01T6  81  03 

A 

CMPA 

#3 

01T8  27  00  0207 

BIQ 

UPD 

TES:  UPDATE  FIRST  PT  &  STA 

01TA  20  06  0202 

* 

BBA 

ICR  EG 

01TC  7C  0046 

0  HIT 

INC 

HITCNT 

01TT  ?f  0047 

0 

4l 

CLH 

IQ 

0202  BO  02AO 

P  ICREG 

JSR 

INC REG 

0205  20  00  0214 

* 

BRA 

HIT1 

0207  BO  02A1 

P  UPD 
* 

JSR 

LNUPOT 

MOTE  TO  NEXT  PT 

020A  BO  0001 

P  FP 

JSR 

IN  OAT 

CHK  FOR  END  OF  DATA  BUFF 

0200  50 

TSTB 

0201  26  01  0211 

BNE 

?1 

NOT  DONE  TIT 

0210  39 

RTS 

EMPTT-RETURN 

0211  71  01CT 

P  FI 
$ 

JMP 

FNOPOS 

♦ 

ONE  PT  OVER 

0214  B6  0046 

0  HIT1 

LOAA 

HITCNT 

DO  VE  HATE  5  PT'S? 

0217  81  05 

A 

CMPA 

#5 

WITH  POS  SLOPE? 

0219  26  0B  0226 

* 

BNE 

L00P1 

NO:  MAKE  ANOTHER  LOOP 

021B  C6  Ff 

A 

LOAB 

#$FF 

TES:  SUCCESS 

0210  FE  0037 

0 

LOX 

GTNO 

0220  EE  02 

A 

LOI 

XVAL.X 

UPDATE  X  TALUE 

0222  FT  003F 

0 

4r 

STI 

CXVAL 

0225  39 

41 

RTS 

0226  $6  0045 

0  L00P1 

LOAA 

CNTR4 

HAVE  WE  CHK 'ED  10  PT'S? 

0229  81  0A 

A 

CMPA 

#10 

022B  27  03  0230 

* 

BIO 

NP1 

TES  START  AGAIN: 

0220  71  01 E5 

P 

$ 

JMP 

INT 

0230  BO  02C2 

P  NP1 

JSR 

FNDP2 

TES:  MOVE  OVER  1  PT 

* 

AND  REPEAT 

0233  39 

* 

RTS 

0234  ?!  004A 

* 

0  PTCMP 

LOX 

PTREG2 

0237  A6  00 

A 

LOAA 

0.X 

0239  16  01 

A 

LOAB 

l.X 

023B  FE  0048 

0 

LOX 

PTREG1 

0231  11  00 

A 

* 

LOX 

0.X 

0240  BO  0AA9 

P 

0 

JSR 

CMP  16 

0243  50 

TSTB 

0244  27  0B  0251 

BIQ 

1QINC 

X«AB 

0246  Cl  01 

A 

CMPB 

#1 

X>AB 

0248  27  03  0240 

BIQ 

CX10 

114 


009  COHP  ♦**  Dm  COMPUTING  ROUT  INI  *** 


024 A 

86 

02 

1 

LDll 

#2 

024C 

39 

* 

RTS 

024D 

BD 

0257 

P 

CK10 

JSR 

CXNXPT 

0250 

39 

0 

RTS 

0251 

7C 

0047 

D 

EQINC 

INC 

IQ 

0254 

86 

01 

1 

LDll 

*1 

0256 

39 

* 

RTS 

0257 

PE 

0041 

D 

♦ 

CENXPT 

LDX 

PTRES2 

0251 

08 

INI 

025B 

08 

INX 

025C 

08 

I  NX 

025D 

08 

INX 

0251 

PP 

0041 

D 

0 

STX 

PTREG2 

0261 

PE 

004A 

D 

LDX 

PTREG2 

0264 

16 

00 

1 

LDll 

0,1 

0266 

E6 

01 

1 

LDAB 

1,1 

0268 

PE 

0048 

D 

LDX 

PTREG1 

026B 

EE 

00 

1 

0 

LDX 

0.X 

026D 

BD 

0A19 

P 

0 

JSR 

CMP  16 

0270 

5D 

TSTB 

0271 

27 

IE  0291 

BEQ 

E0INC1 

0273 

Cl 

PP 

1 

CMPB 

#$TP 

0275 

27 

0D  0284 

0 

BEQ 

HIT2 

0277 

PE 

0041 

D 

LDX 

PTREG2 

027A 

PP 

0037 

D 

STX 

CTNO 

027D 

EE 

02 

1 

LDX 

XV1L.X 

027P 

PP 

003P 

D 

STX 

CXTAL 

0282 

4P 

CLRA 

0283 

39 

0 

RTS 

0284 

PE 

0048 

D 

HIT2 

LDX 

PTREG1 

0287 

08 

INX 

0288 

08 

INX 

0289 

08 

INX 

0281 

08 

INX 

028B 

PP 

0048 

D 

0 

STX 

PTREG1 

0281 

86 

02 

A 

LDll 

#2 

0290 

39 

0 

RTS 

0291 

7C 

0047 

D 

EQINC 1 

INC 

IQ 

0294 

PI 

0048 

D 

LDX 

PTREG1 

0297 

08 

INX 

0298 

08 

INX 

0299 

08 

INX 

0291 

08 

INX 

029B 

PP 

0048 

D 

STX 

PTREG1 

029E 

86 

01 

A 

LDll 

#1 

0210 

39 

RTS 

# 
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'*  •  tBrnUMatki  "•'•  --**'*■ 


KAB 


GIT  NEXT  T  VALUE  ADR 


COMPARE  1ST  &  3RD  PT'S 


X-AB  ~  RETURN  1  IN  A 
KAB  -  RETURN  2  IN  A 

X>AB  -  RETURN  0  IN  A 
RESET  CTNO 


010  COM?  ♦*♦  DAM  COMPUTING  ROUTINE  ♦*♦ 


02A1 

FE  0048 

D 

LNUPDT 

LDX 

PTRE61 

02A4 

FF  0037 

D 

* 

STX 

CTNO 

02A? 

El  02 

A 

LDX 

XVALtX 

02A9 

FF  003F 

D 

* 

STX 

CXVAL 

02AC 

39 

* 

RTS 

02AD 

FI  0048 

D 

• 

INCREG 

LDX 

PTREG1 

0210 

08 

I  NX 

0211 

08 

I  NX 

0212 

08 

INX 

0213 

08 

INX 

0214 

FF  0048 

D 

• 

STX 

PTREG1 

0217 

FE  004A 

D 

LDX 

PTREG2 

021A 

08 

INX 

0211 

08 

INX 

021C 

08 

INX 

02SD 

08 

INX 

02BE 

FF  004A 

D 

$ 

STX 

PTREG2 

02C1 

39 

* 

RTS 

02C2 

BD  02CC 

P 

* 

FNDP2 

JSR 

NEXTPT 

02C5 

5D 

TSTB 

02C6 

26  01  02C9 

BNE 

ME2 

02C6 

39 

RTS 

02C9 

7E  01CF 

P 

ME2 

* 

JMP 

FNDPOS 

♦GO  TO 

NEXT 

POINT  (TO 

02CC 

FE  0037 

D 

NEXTPT 

LDX 

CTNO 

02CF 

08 

INX 

02D0 

08 

INX 

02D1 

08 

INX 

02D2 

08 

INX 

02D3 

FF  0037 

D 

STX 

CTNO 

02D6 

11  02 

A 

LDX 

XVAL.X 

02D8 

FF  0037 

D 

STX 

CXVAL 

02D1 

ID  00D1 

P 

JSR 

ENDAT 

02DE 

39 

RTS 

******************** 

♦GO  TO 

PREVIOUS  POINT 

******************** 

02DF 

FE  0039 

D 

LASTPT 

LDX 

CPTNO 

02E2 

09 

DEX 

02E3 

09 

DEX 

02E4 

09 

DEX 

0215 

09 

DEX 

02E6 

FF  0039 

D 

STX 

CPTNO 

02E9 

EE  00 

A 

LDX 

0,X 

02EB 

FF  003F 

D 

STX 

CXVAL 

02EE 

39 

RTS 

RESET  CTNO 


UPDATE  X  VALUE 


RIGHT  ALONG  X  AXIS) 
/CURRENT  POINT  # 


/NEXT  POINT 


//CHECX  FOR  END  OF  TOl 


(TO  LEFT  ALONG  X  AXIS) 


******************** 

♦DECIDE  WHICH  ELEMENT  THE  CURRENT 


t 


ill  COMP  ♦♦♦  DATA  COMPUTING  ROUTINE  *** 

•PEAK  REPRESENTS  IP  ANT 
♦RETURN : 

♦  0  -  NOT  A  VALID  PEAK 

♦  2  -  ZINC  0 

♦  4  -  CADMIUM  2 

♦  6  -  LEAD  4 

♦  8  -  COPPER  6 
******************** 


02EP 

86  08  A  VCHELM 

LDAA 

#8 

/TRY  ALL  4  ELEMENTS 

02P1 

B7  0033  D 

STAA 

ELNUM 

02P4 

CE  0006  A 

LDX 

#6 

/SAVE  ELEMENT  INDEX 

02P7 

FF  0056  D  VCHE0 

STX 

TPT4 

02TA 

EE  1A  B 

LDX 

LOVECO.X 

/LOW  POSSIBLE 

02FC 

B6  0041  D 

LDAA 

FXVAL 

/FISRT  POINT  IN  PEAK 

02FF 

F6  0042  D 

LDAB 

FXVAL+1 

0302 

BD  0AA9  P 

JSR 

CMP16 

0305 

Cl  01  A 

CMPB 

#1 

IF  =1  NO  FIT 

0307 

27  19  0322 

BEQ 

VCHE1 

MUST  BE  (X<*AB) 

0309 

FE  0056  D 

LDX 

TPT4 

030 C 

EE  22  B 

LDX 

HIECO.X 

/HIGH  POSSIBLE 

030 E 

B6  0043  D 

LDAA 

LXVAL 

0311 

F6  0044  D 

* 

LDAB 

LXV1L+1 

0314 

4D 

TSTA 

STILL  HAVE  DATA 

0315 

26  03  031 A 

BNE 

VCHE6 

0317 

5D 

TSTB 

NO  MORE  DATA:  STOP 

0318 

27  2B  0345 

£ 

BEQ 

WCHE5 

031 A 

BD  0AA9  P  VCHE6 

JSR 

CMP16 

MUST  BE  (X>  OR  *  AB' 

031D 

Cl  FF  A 

CMPB 

#$FF 

031F 

27  01  0322 

BEO 

VCH11 

0321 

39  WCHE2 

RTS 

0322 

7D  0000  A  VCHE1 

TST 

ZINK 

0325 

27  0A  0331 

* 

BEQ 

VCHES 

0327 

7A  0033  D 

DEC 

ELNUM 

032A 

7A  0033  D 

DEC 

ELNUM 

/NOT  A  VALID  PEAK 

032D 

27  F2  0321 

BEQ 

VCHE2 

032F 

20  0D  033E 

* 

BRA 

VCHE4 

0331 

7A  0033  D  VCHE3 

DEC 

ELNUM 

IF  NOT  DOING  ZN 

0334 

7A  0033  D 

DEC 

ELNUM 

DON'T  CMP.  RANGE 

0337 

B6  0033  D 

LDAA 

ELNUM 

033A 

81  02  A 

CMPA 

#2 

033C 

27  07  0345 

* 

BEQ 

VCHE5 

033E 

FE  0056  D  VCHE4 

LDX 

TPT4 

0341 

09 

DEX 

0342 

09 

DEX 

0343 

20  B2  02F7 

BRA 

VCHE0 

0345 

7F  0033  D  VCHE5 

CLR 

ELNUM 

0348 

39 

RTS 

* 

******************** 


♦ADJUST  THE  LINE  AT  THE  BOTTOM  OF  CURVE 
♦TO  INSURE  THAT  NO  POINTS  ON  THE 
♦CURVE  ARE  BELOV  THE  LINE 
♦ASSUMES : 


012  COMP  ♦♦♦  DATA  COMPUTING  ROUTINE  ♦♦♦ 


*  PPTNO  CONTAINS  TBI  FIRST  POINT  A DDR 

*  FXVAL  CONTAINS  THE  FIRST  X  VALUE 

*  LPT NO  CONTAINS  TEE  LAST  POINT  A DDR 

*  LX7AL  CONTAINS  THE  LAST  X  VALUE 
* RETURNS : 

*  FPT NO, FXVAL, LPT NO , LXVAL  DEFINING 

♦THE  END  POINTS  OF  TEE  LINE  AT  THE  BOTTOM 
♦OF  THE  CURVE  WITH  NO  POINTS  MISSING. 
*********** ******** ****************** 


0349 

FE 

003B 

D 

ADJUST 

LDX 

FPTNO 

/LEFT  END  PT  OF  LINE 

034C 

FF 

0039 

D 

STX 

CPTNO 

034F 

FE 

0041 

D 

LDX 

FXVAL 

/X  VALUE  AT  LEFT  END  OF  LI 

0352 

FF 

003F 

D 

STX 

CXVAL 

/ 

0355 

BD 

01BF 

P 

JSR 

NEXPNT 

/LOOK  AT  NEXT  PT  TO  RIGHT 

0358 

BD 

0390 

P 

JSR 

ABLINE 

/IS  THIS  PT  ABOVE  THE 

LINE 

035B 

4D 

TSTA 

/#1=TRUE 

035C 

26 

0E  036 C 

BNE 

ADJ5 

/ADJUST  RIGHT  END 

035E 

FE 

0039 

D 

LDX 

CPTNO 

/NEW  LEFT  END 

0361 

FF 

003B 

D 

STX 

FPTNO 

0364 

FE 

003F 

D 

LDX 

CXVAL 

0367 

FF 

0041 

D 

STX 

FXVAL 

036A 

20 

DD  0349 

BRA 

ADJUST 

/TRY  AGAIN 

036 C 

FE 

003D 

D 

ADJ5 

LDX 

LPT  NO 

/RIGHT  END  PT 

036F 

FF 

0039 

D 

STX 

CPTNO 

0372 

FE 

0043 

D 

LDX 

LXVAL 

0375 

FF 

003F 

D 

STX 

CXVAL 

0378 

BD 

02DF 

P 

JSR 

LAS TP T 

/MOVE  ONE  PT  TO  LEFT 

037B 

BD 

0390 

P 

JSR 

ABLINE 

/IS  THIS  PT  ABOVE  TEE 

LINE 

037E 

4D 

TSTA 

037F 

26 

0E  038F 

BNE 

ADJ6 

0381 

FE 

0039 

D 

LDX 

CPTNO 

0384 

FF 

003D 

D 

STX 

LPT  NO 

0387 

FE 

003F 

D 

LDX 

CXVAL 

038 A 

FF 

0043 

D 

STX 

LXVAL 

038D 

20 

DD  036C 

BRA 

ADJ5 

038F 

39 

ADJ6 

RTS 

******************** 


♦DETERMINES  IF  THE  POINT  DEFINED  BT 
♦CPTNO  AND  CXVAL  IS  ABOVE  THE  LINE 
♦DETERMINED  BT  FPTNO, FIVAL  AND  LPTNO, LXVAL 
♦RETURN  1STRUE  0-FALSE  IN  ACCA 
♦T  VALUE  ON  LINE  IS  LEFT  IN  T 
******************** 


0390 

FE 

003B 

D 

ABLINE  LDX 

FPTNO 

/GET  T1 

0393 

09 

DEI 

1ST  T  VALUE 

0394 

09 

DEX 

0395 

IE 

00 

A 

LDX 

0,X 

0397 

FF 

0054 

D 

STX 

T1 

039A 

FE 

003D 

D 

LDX 

LPT  NO 

/GET  T2 

0S9D 

09 

DEX 

LAST  I  VALUE 

039E 

09 

DEX 

039F 

EE 

00 

A 

LDX 

0,1 

03  A 1 

FF 

0056 

D 

STX 

Y2 

03A4 

B6 

0057 

D 

LDAA 

T2+1 

/FORM  (T2-T1 ) 

03A7 

B0 

0055 

D 

SUBA 

Yl+1 

03AA 

97 

01 

B 

STAA 

MUL1+1 

03AC 

B6 

0056 

D 

LDAA 

T2 

118 


013 

COMP  ♦♦♦ 

DATA 

COMPUTING  ROUTINE 

*** 

03A7 

B2 

0054 

D 

SBCA 

T1 

03B2 

97 

00 

B 

STAA 

MUL1 

03B4 

B6 

0040 

D 

LDAA 

CZYAL+1 

/70RM  (ZC-Z1) 

03B? 

B0 

0042 

D 

SUBA 

7XVAL+1 

03BA 

97 

05 

B 

STAA 

MUL3+1 

03BC 

B6 

0037 

D 

LDAA 

CZ7AL 

03B7 

B2 

0041 

D 

SBCA 

7ZTAL 

03C2 

97 

04 

B 

STAA 

MUL3 

03C4 

BD 

0997 

P 

* 

JSR 

MUL 

/MULTIPLY  (T2-T1 ) ( ZC-X1 ) 

03C7 

B6 

0044 

D 

LDAA 

LZ7AL+1 

/70RMS  (Z2-X1) 

03CA 

B0 

0042 

D 

SUBA 

7ZTAL+1 

03CD 

76 

0043 

D 

LDAB 

LZTAL 

/DIVISOR  IN  A(LO )  $. 

03D0 

72 

0041 

D 

* 

SBCB 

7ZVAL 

/  B  (HI) 

03D3 

BD 

0971 

P 

* 

JSR 

DDIV 

/DIVIDE( T2-Y1 ) (E-El )  BT  (Z 

03D6 

96 

05 

B 

LDAA 

DIY3+1 

/ADD  Y1  TO  RESULT 

03D8 

BB 

0055 

D 

ADDA 

Yl+1 

03DB 

B7 

005B 

D 

STAA 

T+l 

(SLOPE  ♦  Z) 

03DI 

96 

04 

B 

LDAA 

DIV3 

03E0 

B9 

0054 

D 

ADCA 

T1 

03E3 

B7 

00 5 A 

D 

STAA 

T 

STORE  IN  'Y ' 

03E6 

7E 

0039 

D 

LDZ 

CPTNO 

/CURRENT  PT  # 

03E9 

09 

DEZ 

GET  T  VALUE  AT  THIS  PT 

03EA 

09 

DEZ 

03EB 

EE 

00 

A 

LDZ 

0.X 

03ED 

B6 

00  5A 

D 

LDAA 

T 

0370 

76 

005B 

D 

LDAB 

T+l 

0373 

BD 

0AA9 

P 

JSR 

CMP  16 

/COMPARE  TO  CALCULATED  VAL 

0376 

Cl 

77 

A 

CMPB 

#$77 

0378 

26 

03  037D 

BNE 

ABLl 

/POINT  IS  ABOVE  OR  EQUAL  T 

037A 

86 

00 

A 

LDAA 

#0 

/RETURN  FALSE  IF  PT  IS  <  L 

037C 

39 

RTS 

037D 

86 

01 

A 

ABLl 

LDAA 

#1 

/RETURN  TRUE  IF  PT  >  OR  = 

0377 

39 

RTS 

******************** 

♦CALCULATE  THE  AREA  UNDER  THE  FUNCTION  CURVE 

♦DELINEATED 

BT  FPTNO,FZVAL  AND  LPTNO, LZVAL. 

♦THIS 

ROUTINE  USES  THE 

TRAPEZOIDAL  RULE  FOR 

*STEP-¥ISB  INTEGRATION 

******************** 

APPROEIMATION. 

0400 

7E 

003B 

D 

INTGRT  LDZ 

7PTN0 

/START  OF  POSITION  IN  CURV 

0403 

77 

0039 

D 

STZ 

CPTNO 

0406 

71 

0041 

D 

LDZ 

7ZVAL 

0409 

77 

0037 

D 

STZ 

CZTAL 

040 C 

77 

005C 

D 

CLR 

SLOPE 

0407 

7E 

003D 

D 

LDZ 

LPTNO 

DETERMINE  BASE  LINE 

0412 

09 

DEZ 

SLOPE  SIGN 

0413 

09 

DEZ 

0414 

A6 

00 

A 

LDAA 

0.Z 

0416 

E6 

01 

A 

* 

LDAB 

l.X 

LAST  T  VALUE 

0418 

7E 

003B 

D 

LDZ 

7PTN0 

041 B 

09 

DEZ 

041C 

09 

DEZ 

041D 

EE 

00 

A 

LDZ 

0.Z 

1ST  T  VALUE 

119 


014 

COMP  **♦ 

D1T1  ( 

COMPUTING  ROUTINE 

*** 

041? 

BO 

0119 

P 

* 

JSR 

CMP  16 

0422 

Cl 

01 

1 

CMPB 

#1 

0424 

26 

03  0429 

BNE 

INTG1 

/SLOPS  IS  POSITIVE 

0426 

7C 

005C 

0 

INC 

SLOPE 

/SLOPE  IS  NEGATIVE 

0429 

CE 

0000 

1 

INTG1 

LOT 

#0 

042C 

?? 

0028 

0 

STI 

1RS1 

/CLEAR  AREA  BUPPER 

042? 

?? 

0021 

0 

STX 

AREA* 2 

0432 

BO 

0446 

P 

INTG2 

JSR 

GTARE1 

/CALC  AREA  0?  ONE  TRAPEZOI 

0435 

?E 

0039 

0 

LOX 

CPTNO 

0438 

B6 

0030 

0 

L011 

LPT  NO 

043B 

?6 

00SE 

0 

LD1B 

LPTNO+1 

043E 

BO 

0119 

P 

JSR 

CMP16 

/ARE  WE  THRU? 

0441 

Cl 

?? 

1 

CMPB 

#$?? 

0443 

27 

EO  0432 

BEQ 

INTG2 

/NO,  DO  NEXT  TRAPEZOID 

0445 

39 

RTS 

/THRU  WITH  THIS  CURVE 

******************** 

♦THIS 

ROUTINE 

CALCULATES  THE  AREA  0?  ONE 

♦TR1PEZ0ID  DEFINED  BY 

CPTNO  AND  CPTNO+1  AND 

♦1DDS 

THIS  C1LCUL1TED 

AREA  TO  AREA 

♦♦THE 

TRAPEZOIDiL  RULE 

?0R  STEP-WISE  INTEGRATION 

******************** 

0446 

7D 

005C 

0 

GTAREA  TST 

SLOPE 

/IS  SLOPE  0?  LINE  POSITIVE 

0449 

27 

03  044E 

BEQ 

GTAR1 

/YES 

044B 

BO 

01B? 

p 

JSR 

NEXPNT 

/NEGATIVE  -  USE  RIGHT  SIDE 

044E 

BO 

0390 

p 

GTAR1 

JSR 

ABLINE 

/CALC  Y  VALUE  ON  BASE  LINE 

0451 

70 

005C 

0 

TST 

SLOPE 

0454 

27 

03  0459 

BEQ 

GT1R2 

0456 

BO 

020? 

p 

JSR 

LASTPT 

/BACK  TO  LEPT  SIDE 

0459 

?E 

0039 

0 

GT1R2 

LOX 

CPTNO 

/  CURRENT  X  ADDR 

045C 

09 

DEX 

Y-AODR. 

0451) 

09 

OEX 

045E 

16 

01 

1 

L011 

1,1 

/LOW  BYTE  (Y  VALUE) 

0460 

B0 

005B 

0 

SUB1 

T+l 

/SUBTRACT  BASE  LINE 

0463 

B7 

0055 

0 

ST11 

Tl+1 

/T  VALUE 

0466 

16 

00 

1 

L011 

0  ,X 

/HIGH  BYTE  Y  VALUE 

0468 

B2 

0051 

0 

SBC1 

I 

/BASE  LINE  UPPER  BYTE 

046B 

B7 

0054 

D 

ST11 

11 

/THIS  IS  F(X0) 

046 E 

BO 

01B? 

P 

JSR 

NEXPNT 

/RIGHT  SIDE 

0471 

PE 

0039 

0 

LOX 

CPTNO 

0474 

09 

OEX 

T  ADDR 

0475 

09 

OEX 

0476 

16 

01 

1 

L011 

1,1 

/LOWER  BYTE 

0478 

B0 

005B 

0 

SUB1 

Y+l 

/SUBTRACT  BASE  LINE 

047B 

B7 

0057 

0 

ST41 

Y2+1 

047 E 

16 

00 

1 

L011 

0.X 

/UPPER 

0480 

B2 

0051 

0 

SBC1 

T 

/BASE  LINE  UPPER 

0483 

B7 

0056 

0 

ST11 

T2 

/THIS  IS  ?(X1) 

0486 

B6 

0055 

0 

L011 

Tl+1 

/P(X0)  LOWER 

0489 

BB 

0057 

0 

1001 

T2+1 

/PLUS  ?(X1)  LOWER 

048C 

97 

01 

B 

ST11 

MUL1+1 

048 E 

B6 

0054 

0 

L0A1 

T1 

/? (X0 )  UPPER 

0491 

B9 

0056 

0 

10C1 

Y2 

/PLUS  ?(X1)  UPPER 

0494 

97 

00 

B 

STA1 

MUL1 

/?(X0)  ♦  F(X1) 

0496 

?E 

0039 

0 

LOX 

CPTNO 

//CURRENT  POINT  POINTER 

0499 

16 

05 

1 

LOli 

5,X 

//CALC  H*2  «  X2-X1 

049B 

10 

01 

1 

SUBA 

l.X 

0491) 

97 

05 

B 

ST  11 

MUL3+1 

120 


015  COMP  **♦  DATA  COMPUTING  ROOT  I MI  **♦ 


049 P 

AS  04 

A 

LDAA 

4»X 

04  A 1 

A2  00 

A 

SBCA 

0,X 

04A3 

9?  04 

B 

STAA 

MUL3 

(X2-Xl)/2 

04  A  5 

74  0004 

B 

LSR 

MUL3  //H  = 

04A8 

76  0005 

B 

ROR 

MOL  3+1 

=  H/2*(?(X1 )+F(X2 

04AB 

BD  0997 

P 

JSR 

MUL  //AREA 

♦NOW  ADD  THIS 

TRAPEZOID  AREA 

INTO  AREA 

04AI 

96  05 

B 

LDAA 

MUL3+1 

04B0 

BB  002B 

D 

ADDA 

AREA+3 

04B3 

B7  002B 

D 

STAA 

ARE  A+S 

04B6 

96  04 

B 

LDAA 

MUL3 

04B8 

B9  00 2 A 

D 

ADCA 

AREA* 2 

04BB 

B7  002A 

D 

STAA 

AREA+2 

04BE 

96  03 

B 

LDAA 

MUL2+1 

04C0 

B9  0029 

D 

ADCA 

AREA+1 

04C3 

B7  0029 

D 

STAA 

AREA+1 

04C6 

96  02 

B 

LDAA 

MUL2 

04C8 

B9  0028 

D 

ADCA 

AREA 

04CB 

B7  0028 

D 

STAA 

AREA 

04CE 

39 

6  TAR  3 

* 

RTS 

*  CLEAR  THE  PLAIN  SAMPLE  PEAR  AREA  BUFFERS 

« 


04CF 

86 

00  A 

CLSABF 

LDAA 

#0 

04D1 

CE 

0080  A 

LDX 

#128 

04D4 

A7 

FB  A 

CLSA1 

STAA 

S  ABF-1 , 

X 

04D6 

09 

DEX 

04D7 

26 

FB  04D4 

BNE 

CLSA1 

04D9 

39 

RTS 

******* ************ * 

♦SAFE  ' 

THE  INTEGRATION 

RESULTS  IN  PROPER  BUFFER 

*****  **  ************* 

04DA 

B6 

0033  D 

SAYRES 

LDAA 

ELNUM 

RSSET  ELNUM  FOR  PROPER 

04DD 

81 

02  A 

CMPA 

#2 

OFFSET 

04DF 

26 

05  0416 

0 

BNE 

SAY1 

04E1 

7F  0033  D 

CLR 

ELNUM 

SET  ZN  -  0 

04E4 

20 

16  04FC 

* 

BRA 

SAY4 

04E6 

81 

04  A 

SAT1 

CMPA 

#4 

0418 

26 

02  04EC 

BNE 

SAY2 

CD  OK 

04EA 

20 

10  04FC 

* 

BRA 

SAT4 

04IC 

81 

06  A 

SAT2 

CMPA 

#6 

0411 

26 

07  04F7 

* 

BNE 

SAYS 

04P0 

8B 

02  A 

ADDA 

#2 

PI  s  8 

04P2 

B7  0033  D 

STAA 

ELNUM 

04P5 

20 

05  04FC 

* 

BRA 

SAV4 

04F7 

8B 

04  A 

SAV3 

ADDA 

#4 

04F9 

B7 

0033  D 

* 

STAA 

ELNUM 

CU  =  12 

04FC 

71 

0032  D 

SAT4 

CLR 

ELNUM1 

/HIGH  OF  INDEX 

04FF 

F6 

0000  A 

LDAB 

CNTR1 

//CYCLE  # 

0502 

5A 

DECB 

NO  0  CYCLE 

0503 

58 

AS  LB 

//*2 

0504 

58 

ASLB 

//*4 

121 


016  COMP  ♦**  DAT!  COMPUTING  ROUTINE  ♦♦* 


0505 

58 

AS  LB 

//♦8 

0506 

58 

ASLB 

//♦16 

0507 

?B 

0033 

0 

ADOB 

ELNUM 

050A 

?7 

0033 

0 

STAB 

ELNUM 

0500 

?E 

0032 

0 

LOX 

ELNUM1 

0510 

B6 

0028 

0 

LDAA 

AREA 

0515 

A7 

?C 

A 

STAA 

SABE.X 

0515 

B6 

0029 

0 

LOAA 

AREA+1 

0516 

A7 

?D 

A 

STAA 

SAB?+1  (X 

0511 

B6 

002A 

0 

LOAA 

AREA* 2 

0510 

A7 

?E 

A 

STAA 

SABP+2.X 

AREA  IS  IN 

32  BITS 

051? 

B6 

002B 

0 

LDAA 

AREA+3 

0522 

A7 

?? 

A 

STAA 

SABF+3.X 

0524 

39 

RTS 

♦CALCULATE  THE  CONCENTRATIONS  ?0R 

THE  THREE 

♦PLAIN 

SAMPLE 

PEAR  AREAS  THAT  ARE 

NON-ZERO 

♦IN  SAB?.  PUT 

RESULTS 

IN  CONB? 

0525 

BO 

0551 

P 

CALCON 

JSR 

CLCNB? 

/  CLEAR  CONCENTRATION  BU?? 

0528 

70 

0097 

0 

TST 

INTCAL 

052B 

27 

08  0535 

* 

BEO 

CALC0 

0520 

B6 

0000 

A 

LDAA 

VPRECT 

0530 

4A 

OECA 

0531 

4A 

OECA 

0532 

B7 

0035 

0 

* 

STAA 

SUBSMP 

0??SET 

0535 

86 

00 

A 

CALC0 

LOAA 

#0 

0537 

B7 

0033 

J) 

CALCO 

STAA 

ELNUM 

053 A 

?6 

0035 

0 

LOAB 

SUBSMP 

0530 

58 

ASLB 

*  r 

053E 

58 

ASLB 

*■ £' 

053? 

58 

ASLB 

j i  Q 

0540 

58 

ASLB 

+  It 

0541 

?7 

0050 

0 

CALC1 

STAB 

SABO?? 

0544 

BO 

0565 

P 

JSR 

CL1C0N 

/TRT  TO  CALCULATE  THIS  CON 

0547 

B6 

0033 

0 

LOAA 

ELNUM 

054A 

8B 

04 

A 

ADDA 

#4 

054C 

81 

0C 

A 

CMPA 

#12 

054E 

2? 

E7  0537 

BLE 

CALCO 

/NEXT 

0550 

39 

RTS 

♦CLEAR 

THE  CONCENTRATION  BU??ER 

0551 

4? 

CLCNB? 

CLRA 

0552 

CE 

0010 

A 

LOX 

#16 

0555 

A7 

07 

B 

CLCNB1 

STAA 

C0NB7-1 , 

X 

0557 

09 

DEX 

0558 

26 

?B  0555 

BNE 

CLCNB1 

055A 

39 

* 

RTS 

♦CLEAR 

$ 

TEE  DIVISOR  BU??ER  ( SAAXA ) 

055B 

4? 

CLSZA 

CLRA 

055C 

CE 

0008 

A 

LOX 

#8 

055? 

A7 

29 

B 

CLSZA1 

STAA 

SAAXA-1 , 

X 

0561 

09 

DEX 

0562 

26 

?B  055? 

BNE 

CLSXA1 

0564 

39 

RTS 

* 


* 


122 


#1?  COMP  *•♦  DATA  COMPUT ING  ROUTINE  *** 


♦CALCULATE  CONCENTRATION  TOR  ONE  ELEMENT  1? 


♦AREA 

* 

IS  NOT 

ZERO 

0565 

B6 

0033 

0 

* 

CL1C0N 

LOAA 

ELNUM 

CBE  IF  STO  CON  IS  0 

* 

IF  IT 

IS-  RETURN 

0568 

TAB 

A  TO  B 

0569 

54 

LSRB 

B/2 

056A 

T7 

0059 

0 

STAB 

EX+1 

0560 

7F 

0058 

0 

CLR 

EX 

0570 

FE 

0058 

0 

LOZ 

EX 

OFFSET 

0573 

16 

00 

A 

LOAB 

STCN1H.X 

GET  STD  CON  TALUE 

0575 

50 

TSTB 

0576 

26 

01  0579 

BNE 

CL1C2 

0578 

39 

* 

RTS 

0579 

B6 

0050 

0 

CL1C2 

LOAA 

SABOFF 

/BUFFER  OFFSET 

057C 

BB 

0033 

0 

AOOA 

ELNUM 

/ELEMENT  AREA  OFFSET 

057F 

B7 

0059 

0 

STAA 

EX+1 

0582 

7F 

0058 

0 

CLR 

EX 

0585 

FE 

0058 

0 

LOX 

EX 

0588 

60 

FC 

A 

TST 

SABF'X 

058 A 

26 

00  0599 

BNE 

CL1C1 

058C 

60 

FD 

A 

TST 

SABF+1 ,X 

058E 

26 

09  0599 

BNE 

CL1C1 

0590 

60 

FE 

A 

TST 

SABF+2,X 

0592 

26 

05  0599 

BNE 

CL1C1 

0594 

60 

FF 

A 

TST 

SABF+3,X 

0596 

26 

01  0599 

BNE 

CL1C1 

0598 

39 

RTS 

/NO  AREA 

0599 

A6 

FC 

A 

CL1C1 

LOAA 

SABFt  X 

059B 

B7 

0064 

0 

STAA 

XA 

059E 

A6 

FD 

A 

LOAA 

SABF+1 »X 

05A0 

B7 

0065 

0 

STAA 

XA+1 

05A3 

A6 

FE 

A 

LOAA 

SABF+2,X 

05A5 

B7 

0066 

0 

STAA 

XA+2 

05A8 

A6 

FF 

A 

LOAA 

SABF+3.X 

05AA 

B7 

0067 

0 

* 

STAA 

XA+3 

//UNKNOWN  PEAK  AREA  IN  XA 

05AO 

70 

0097 

0 

TST 

INTCAL 

05B0 

27 

3B  05EO 

* 

BEQ 

XAOIT 

05B2 

B6 

0000 

A 

LOAA 

FPRECT 

//STD  ADD  CYCLE  # 

05B5 

4A 

OECA 

ADJUST  TO  PROPER  POSITION 

05B6 

48 

ASLA 

05B7 

48 

ASLA 

- 

05B8 

48 

ASLA 

05B9 

48 

ASLA 

* 

05BA 

BB 

0033 

0 

ADDA 

ELNUM 

//CURRENT  ELEMENT 

05BO 

B7 

0059 

0 

STAA 

EX+1 

05C0 

7F 

0058 

0 

CLR 

EX 

OFFSET  TO  POINT  TO 

05C3 

FE 

0058 

0 

* 

LOX 

EX 

STD  PEAK  AREA 

05C6 

A6 

FF 

A 

LOAA 

SABF+3,X 

USE  LO  16  BITS 

05C8 

B0 

0067 

0 

SUBA 

XA+3 

05CB 

B7 

0096 

0 

* 

STAA 

SATA 

SATE  DIVISOR 

05CI 

16 

FE 

A 

LOAB 

SABF+2,1 

SAA-XA  LO  BITES 

123 


018  COMP  ***  im  COMPUTING  SOUTINE  *** 


05D0 

F2  0066 

D 

SBCB 

XA+2 

DIVISOR 

05D3 

2D 

15  05EA 

* 

BLT 

El 

IF  SAA-XA  IS  NEG:  ERROR 

05D5 

B6 

0033 

D 

LDAA 

ELNUM 

GET  OFFSET 

05D8 

44 

LSRA 

/2 

05D9 

B? 

0059 

D 

STAA 

EX+1 

05DC 

7F 

0058 

D 

CLR 

EX 

05DP 

FS 

0058 

D 

LDX 

EX 

OFFSET  INTO  X 

0512 

B6 

0096 

D 

£ 

LDAA 

SATA 

RESTORE  A 

05E5 

A? 

2B 

B 

STAA 

SAAXA+1 

,1 

05E7 

E7 

2A 

B 

STAB 

SAAXA ,  X 

SATE  DIVISOR'S 

05E9 

39 

j|t 

RTS 

05EA 

7E 

06EE 

P 

El 

4 

JMP 

SRI 

ERROR  MESSAGE 

05ED 

B6 

0033 

D 

XADIV 

LDAA 

ELNUM 

05P0 

44 

LSRA 

05P1 

B7 

0059 

D 

STAA 

EX+1 

05F4 

7F 

0058 

D 

CLR 

EX 

05F? 

FE 

0058 

D 

* 

LDX 

EX 

05FA 

A6 

2B 

B 

LDAA 

SAAXA+1 

,x 

05FC 

E6 

2A 

B 

* 

LDAB 

SAAXA,  X 

DIVISOR  FOR  CURRENT  PEAX 

05FE 

5D 

TSTB 

CHE  IF  DIVISOR  0 

05FF 

26 

04  0605 

BNE 

OX 

0601 

4D 

TSTA 

0602 

26 

01  0605 

BNE 

OX 

0604 

39 

* 

RTS 

0605 

FE  0064 

D 

OX 

LDX 

XA 

0608 

DF 

02 

B 

STX 

DIT2 

060A 

FE  0066 

D 

LDX 

XA+2 

060D 

DI 

04 

B 

* 

STX 

DIT3 

//XA  IS  DIVIDEND 

060F 

BD 

09F1 

P 

JSR 

DDIV 

//  XA/( SAA-XA) 

QUOT.  =  DIT3  &  REM  *  DIV2 
OPERATE  ON  RESULT  SO  AS  NOT  TO  LOSE 
REMAINDER  EOR  NEXT  MULTIPLICATION 


0612 

DE 

02 

B 

LDX 

DIT2 

SATE  REM 

0614 

FF  006E 

D 

* 

STX 

OR1 

0617 

7D 

0004 

B 

TST 

DIT3 

CHE  IF  QUOT  <  99 

061A 

26 

08  0624 

BNE 

ER0 

IF  NOT  :  ERROR 

061 C 

96 

05 

B 

LDAA 

DIV3+1 

061E 

27 

07  0627 

BEQ 

CLRR1 

0620 

81 

63 

A 

CMPA 

#99 

0622 

2B 

0C  0630 

BMI 

NOER 

0624 

7E 

06EE 

P 

ER0 

* 

JMP 

ER1 

0627 

CE 

0000 

A 

CLRR1 

LDX 

#0 

062A 

FF 

0070 

D 

STX 

R1 

062 D 

?E 

064C 

P 

JMP 

OR1A 

124 


018 

COMP  *** 

DATA 

COMPUTING  ROUTINE  *** 

0630 

CE 

0000 

A 

* 

NOER 

LDX 

#0 

0633 

DF 

02 

B 

SIX 

DIV2 

DIVIDEND  IN  DIV2  (HI)  &  DI 

0635 

86 

0A 

A 

LDAA 

#$0  A 

0637 

5F 

CLRB 

DIVISOR  IN  A  &  B  =  10 

0638 

BD 

09F1 

P 

* 

JSR 

DDIV 

QUOT/10 

063B 

96 

05 

B 

LDAA 

DIV3+1 

LO  BYTE  QUOT. 

063D 

48 

ASIA 

063E 

48 

ASIA 

063F 

48 

AS  LA 

0640 

48 

ASLA 

0641 

B7 

0070 

D 

STAA 

R1 

SAVE  1ST  DIG  IN  UPPER 

* 

* 

4  BITS  OF  R1 

0644 

96 

03 

B 

LDAA 

DIV2+1 

LO  BYTE  REM. 

0646 

BB 

0070 

D 

ADDA 

R1 

0649 

B7 

0070 

D 

STAA 

R1 

REM  IN  LOWER  4  BITS 

* 

* 

NOV 

FORM  2  BCD  DIGITS  AFTER  DEC  PT 

064C 

FE 

006E 

D 

OR1A 

LDX 

OR1 

GET  REM. 

064F 

DF 

04 

B 

STX 

MUL3 

0651 

CE 

000A 

A 

LDX 

#10 

MULTIPLY  BY  10 

0654 

DF 

00 

B 

STX 

MUL1 

0656 

BD 

0997 

P 

JSR 

MUL 

* 

PRODUCTS  DIV2  (HI)  &  DIV3  (LO) 

0659 

FE 

0058 

D 

LDX 

EX 

GET  OFFSET 

065C 

A6 

2B 

B 

LDAA 

SAAXA+1 

,X  LO  BYTE  DIVISOR 

065E 

E6 

2A 

B 

LDAB 

SAAXA.X 

HI 

0660 

BD 

09F1 

P 

JSR 

DDIV 

* 

RETURNS!  0-DIV3  5.  R-DIV2 

0663 

96 

05 

B 

LDAA 

DIV3+1 

LO  BYTE 

0665 

48 

ASLA 

0666 

48 

ASLA 

0667 

48 

ASLA 

0668 

48 

ASLA 

PACK  DIGIT  INTO  UPPER 

0669 

B7 

0072 

D 

STAA 

R2 

4  BITS  OF  R2 

066C 

DE 

02 

B 

LDX 

DIV2 

GET  REMAINDER 

066E 

DF 

04 

B 

STX 

MUL  3 

0670 

CE 

000A 

A 

LDX 

#10 

*10 

0673 

DF 

00 

B 

STX 

MUL1 

0675 

BD 

0997 

P 

4t 

JSR 

MUL 

0678 

FE 

0058 

D 

LDX 

EX 

067B 

A6 

2B 

B 

LDAA 

SAAXA+1 

,X  ( REM* 10 )/ ( SA A-XA ) 

067D 

E6 

2A 

B 

LDAB 

SAAXA.X 

067F 

BD 

09F1 

P 

* 

JSR 

DDIV 

2ND  DIGIT  AFTER  DP 

0682 

96 

05 

B 

LDAA 

DIV3+1 

0684 

BB 

0072 

D 

ADDA 

R2 

FIRST  2  DIGITS  AFTER 

0687 

B7 

0072 

D 

STAA 

R2 

DEC.PT.  IN  R2 

* 


* 

* 

♦ 


CONVERT  BCD  #  BACK  TO  BIN  # 


020  COMP  ***  DATA  COMPUTING  IOUTINI  *** 


068 A 

B6 

0070 

D 

LDAA 

R1 

MSD 

068D 

F6 

0072 

D 

£ 

LDAB 

R2 

LSD 

0690 

BD 

0000 

A 

* 

JSR 

BCDBIN 

0693 

CE 

0000 

A 

LDX 

#0 

0696 

DF 

02 

B 

STX 

MUL2 

0698 

B7 

0070 

D 

STAA 

HI 

HI  BYTE  MULTIPLICAN 

069B 

F7 

0071 

D 

* 

STAB 

Rl+1 

LO  BYTE 

069E 

FE 

0058 

D 

LDX 

EX 

06  A 1 

EE 

00 

A 

LDX 

STCNIH'I 

GET  STD  CON.  VALUE 

06A3 

DF 

00 

B 

jk 

STX 

MUL1 

MULTIPLIER  (SAC) 

06A5 

FE 

0070 

D 

LDX 

R1 

GET  MULTIPLICAN  (XA/(SAA-X 

06A8 

DF 

04 

B 

STX 

MUL3 

06AA 

BD 

0997 

P 

JSR 

MUL 

//  (XA/( SAA-XA) )*SAC 

NOW  MUST  DIVIDE  ANSWER  BY  100000  TO 
SCALE  INTEGER  VALUE  FOR  CORRECT 
DEC.  PT.  POSITION 
DIVIDEND  IN  DIV2  (HI)  &  DIV3  (LO) 


06AD 

86 

E8 

A 

LDAA 

#$E8 

06AF 

C6 

03 

A 

LDAB 

#$03 

DIVISOR  =  1000 

06B1 

BD 

09F1 

P 

* 

JSR 

DDI V 

/1000 

06B4 

CE 

0000 

A 

LDX 

#0 

06B7 

DF 

02 

B 

STX 

DIV2 

IGNORE  REM 

06B9 

86 

64 

A 

LDAA 

#$64 

06BB 

5F 

CLRB 

DIVISOR  *  100 

06BC 

BD 

09F1 

P 

* 

JSR 

DDI  V 

/100 

♦ 

♦ 

DIV3  « 

QUOT .  & 

DIV2  »  REM 

06BF 

B6 

0033 

D 

♦ 

LDAA 

ELNUM 

06C2 

B7 

0059 

D 

STAA 

EX+1 

06C5 

7F 

0058 

D 

CLR 

EX 

06C8 

FE 

0058 

D 

LDX 

EX 

BUFF.  OFFSET 

06CB 

96 

04 

B 

LDAA 

DIV3 

06CD 

A7 

08 

B 

STAA 

CONBF.X 

06CF 

96 

05 

B 

LDAA 

DIV3+1 

06D1 

A7 

09 

B 

* 

STAA 

CONBF+1 , 

X 

06D3 

DE 

02 

B 

LDX 

DIV2 

GET  REM 

06D5 

DF 

04 

B 

STX 

DIV3 

SET  UP  FOR  DIV. 

06D7 

CE 

0000 

A 

LDX 

#0 

06DA 

DF 

02 

B 

STX 

DIV2 

CLEAR  UPPER  16  BITS 

06DC 

86 

0A 

A 

LDAA 

#$01 

06DE 

5F 

CLRB 

DIVISOR  *  10 

06DF 

BD 

09F1 

P 

* 

JSR 

DDI  V 

/10 

06E2 

FE 

0058 

D 

LDX 

EX 

06E5 

96 

05 

B 

LDAA 

DIV3+1 

LO  BYTE  QUOT 

06E7 

A7 

0A 

B 

* 

STAA 

CONBF+2, 

X 

06E9 

96 

03 

B 

LDAA 

DIV2+1 

STORE  REM.  TO  CONBF+3 
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021  COMP  *♦*  SATA  COMPUTING  BOUTINS  *** 


06XB 

A7 

0B 

B 

* 

STAA 

CONBF+3 

.1 

06XD 

39 

♦ 

RTS 

06IE 

B6 

0033 

0 

* 

IR1 

LDAA 

XLNUM 

CURRENT  ELEMENT 

06P1 

27 

0A  06FD 

4t 

BXQ 

21 

06P3 

81 

04 

A 

CMPA 

#4 

06F5 

27 

0A  0701 

* 

BXQ 

CAO 

06P7 

81 

08 

A 

CMPA 

#8 

06P9 

27 

0A  0705 

* 

BXQ 

LXAO 

06PB 

20 

0C  0709 

0 

BRA 

COP 

06TS 

7C 

0076 

0 

21 

INC 

ZIP 

0700 

39 

0 

RTS 

0701 

7C 

0077 

0 

CAD 

INC 

CAOF 

0704 

39 

0 

RTS 

0705 

7C 

0079 

0 

LEAD 

INC 

LEA  OF 

0708 

39 

0 

RTS 

0709 

7C 

0078 

0 

COP 

INC 

COPF 

070C 

39 

0 

RTS 

♦PRINT 

CONCENTRATIONS 

FOR  ONE  SAMPLE  ON  THE 

♦PRINTER 

* 

070S 

7F 

0040 

0 

PRTSMP 

CLR 

ONES 

07i0 

7F 

004E 

0 

CLR 

TENS 

0713 

7F 

004F 

0 

CLR 

HUNO 

0716 

86 

01 

A 

LOAA 

#1 

0718 

B7 

0000 

A 

0 

STAA 

BLOCK 

071 B 

B6 

0036 

0 

LOAA 

SAMPLE 

SAMPLE  =0? 

0711 

40 

TSTA 

TES:  PRINT  OUT  HEADER  MESS 

071 P 

26 

0C  0720 

BNE 

SKS0 

0721 

CE 

0000 

A 

LDI 

#MXS45 

0724 

BO 

0000 

A 

JSR 

PRINT1 

0727 

BO 

0000 

A 

JSR 

SUBS 

LF 

072A 

BO 

0000 

A 

0 

JSR 

SUBS 

0720 

70 

0000 

A 

size 

1ST 

ZINE 

0730 

27 

10  0742 

0 

BXQ 

SK31 

0732 

70 

0076 

0 

TST 

ZIP 

ZN  ERROR? 

0735 

27 

19  0750 

BXQ 

SK32 

NO 

0737 

Cl 

5A4X 

A 

LDZ 

#$5A4E 

073A 

FF 

0019 

A 

STX 

MESERR+25 

0730 

7C 

0075 

0 

INC 

ERFLAG 

0740 

20 

01  0750 

0 

BRA 

SK32 

0742 

70 

0078 

0 

SK31 

TST 

COPF 

CU  ERROR? 

0745 

27 

09  0750 

BXQ 

SK32 

NO 

0747 

CX 

4355 

A 

LSI 

#$4355 

TXS 
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022  COMP  ***  DATA  COMPUTING  ROUTINE  *** 


0?4A 

PP 

0019 

A 

STI 

MESERR+25 

074D 

7C 

0075 

D 

* 

INC 

ERPLAG 

0750 

7D 

0079 

D 

SE32 

TST 

LEA  DP 

PB  ERROR? 

0753 

27 

09  075E 

BEQ 

SK32 

NO 

0755 

CE 

5042 

A 

LDX 

#$5042 

TES 

0758 

PP 

001C 

A 

STX 

MESERR+28 

075B 

7C 

0075 

D 

* 

INC 

ERPLAG 

075E 

7D 

0077 

D 

SE33 

TST 

CADP 

CD  ERROR? 

0761 

27 

09  076C 

BEO 

SK34 

NO 

0763 

CE 

4344 

A 

LDX 

#$4344 

TES 

0766 

PP 

001P 

A 

STX 

MESERR+31 

0769 

7C 

0075 

D 

* 

INC 

ERPLAG 

076C 

7D 

0075 

D 

SK34 

TST 

ERPLAG 

076F 

27 

15  0786 

* 

BEQ 

SK35 

0771 

CE 

0000 

A 

LDX 

#MESERR 

IP  THERE  WAS  AN 

0774 

BD 

0000 

A 

JSR 

PRINT1 

ERROR,  PRINT  MESG 

0777 

7P 

0076 

D 

CLR 

ZIP 

077A 

7P 

0078 

D 

CLR 

COPF 

077D 

7F 

0077 

D 

CLR 

CADP 

CLEAR  ALL  PLAGS 

0780 

7F 

0079 

D 

CLR 

LEADP 

0783 

7P 

0075 

D 

* 

CLR 

ERPLAG 

0786 

BD 

0796 

P 

SE35 

JSR 

CLPRBF 

0789 

BD 

07A4 

P 

JSR 

PRDATE 

PRINT  DATE  LINE 

078C 

BD 

0796 

P 

JSR 

CLPRBF 

078P 

BD 

081P 

P 

JSR 

PRCONS 

CONC.  LINE 

0792 

BD 

0000 

A 

JSR 

SUBS 

0795 

39 

* 

RTS 

0796 

C6 

28 

A 

CLPRBF 

LDAB 

#40 

CLEAR  PRINT  BUFFER 

0798 

86 

20 

A 

LDAA 

#$20 

079A 

CE 

0000 

D 

LDX 

#PRBUF 

079D 

A7 

00 

A 

CLPR1 

STAA 

0,1 

079P 

08 

I  NX 

07A0 

5A 

DECB 

07A1 

26 

PA  079D 

BNE 

CLPR1 

07A3 

39 

* 

RTS 

« 

*  PRINT  THE 

SAMPLE  NUMBER 

*  AND  THE 

* 

DATE  AND  TIME 

07A4 

CE 

0000 

D 

PRDATE 

LDX 

#PRBUF 

/ADDRESS  OP  PRINT  BUFFER 

07A7 

86 

2A 

A 

LDAA 

#'* 

07A9 

A7 

00 

A 

STAA 

0,X 

07AB 

08 

I  NX 

07AC 

F6 

0036 

D 

LDAB 

SAMPLE 

/SAMPLE  # 

07AP 

5C 

INCB 

NO  0  SAMPLE  # 

07B0 

4P 

. _ 

CLRA^-ff* 

/HIGH  BYTE  IS  0 

07B1 

7C 

004P 

D 

• 

INC 

BUND 

07B4 

BD 

0910 

P 

JSR 

BINTOA 

/CORRECT  BINARY  TO  ASCII 

07B7 

7P 

004P 

D 

CLR 

BUND 

07BA 

CE 

0008 

D 

LDX 

#PRBUP+8 

/START  OP  DATA 

07BD 

?6 

0000 

A 

LDAB 

TRL 

/TEAR  LOW  BYTE 
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•23  COMP  ***  Bit 4  COMPUTING  ROUT I NX  *** 


07C0 

B6 

0000 

A 

LBAA 

TRH 

/TEAR  BIGB  BTTX 

07C3 

7C 

0074 

B 

I  HQ 

BON'T  ZERO  SUPRES 

07C6 

BD 

0910 

P 

JSR 

BINTOA 

/CONVERT  &  PUT  IN 

BUF 

07C9 

08 

I  NX 

LEATE  2  BLANKS 

07C4 

08 

I  NX 

07CB 

7C 

004F 

B 

INC 

BUNB 

07CX 

?6 

0000 

A 

LBAB 

BAIL 

/BAT  OF  TEE  TEAR 

07D1 

B6 

0000 

A 

LBAA 

BATE 

07B4 

BB 

0910 

P 

JSR 

BINTOA 

/CONVERT  &  PUT  IN 

BVF 

07D7 

7? 

004F 

B 

CLR 

BUNB 

07DA 

08 

INX 

/2  BLANKS 

07BB 

08 

I  NX 

07BC 

?F 

0094 

B 

SIX 

SATX 

SATE  CURRENT  X 

07DP 

FX 

0092 

B 

LBX 

TMBUF 

GET  SAMPLE  AOUIS. 

TIME 

07X2 

A6 

00 

A 

LBAA 

0.x 

07X4 

08 

INX 

07X5 

K6 

00 

A 

LBAB 

0.X 

07X7 

08 

INX 

07X8 

FF 

0092 

B 

STX 

TMBUF 

UPBATE  POINTER 

07KB 

FX 

0094 

B 

* 

LBX 

SATX 

RESET  X 

07XE 

BB 

0000 

A 

$ 

JSR 

BOBBIN 

CONT.  BCB  TO  BIN 

0711 

BB 

0910 

P 

ft 

JSR 

BINTOA 

/CONVERT  &  PUT  IN 

BUF 

07P4 

86 

3A 

A 

LBAA 

#': 

07P6 

A7 

00 

A 

STAA 

0.1 

07P8 

08 

INX 

07P9 

4F 

CLR  A 

07P4 

FF 

0094 

B 

STX 

SATX 

07IB 

FX 

0092 

B 

LBX 

TMBUF 

0800 

16 

00 

A 

LBAB 

0.X 

0802 

08 

INX 

0803 

FF 

0092 

B 

STX 

TMBUF 

0806 

FI 

0094 

B 

LBX 

SATX 

0809 

7C 

004X 

B 

INC 

TENS 

080C 

BB 

0000 

A 

JSR 

BOBBIN 

080F 

BB 

0910 

P 

JSR 

BINTOA 

0812 

7F 

004X 

B 

ft 

CLR 

TENS 

0815 

CE 

0000 

B 

LBX 

0PRBUF 

0818 

BB 

0000 

A 

JSR 

PRINT1 

081 B 

7F 

0074 

B 

CLR 

ZESUP 

081X 

39 

ft 

RTS 

♦PRINT 

ft 

THE  CONCENTRATION  LINE 

081? 

7B 

0000 

A  PRCONS 

1ST 

ZINX 

LOOKING  FOR  ZINC? 

0822 

27 

3A  0851 

* 

BEQ 

PNT1 

NO:  SKIP  ZN 

0824 

Cl 

0005 

B 

LBX 

#PRBUF+5 

FILL  BUFFER 

0827 

86 

5A 

A 

LBAA 

#'Z 

0829 

A7 

00 

A 

STAA 

0.x 

082B 

08 

INX 

082C 

86 

41 

A 

LBAA 

#'N 

082X 

A7 

00 

A 

STAA 

0.X 

0830 

08 

INX 

0831 

86 

3A 

A 

LBAA 

#'! 
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024  COMP 


***  BATA  COMPUTING  ROUTINE  *** 


0833  A?  00 

A 

STAA 

0835  08 

* 

INI 

0836  ?C  004 F 

D 

INC 

0839  96  08 

B 

LDAA 

083B  D6  09 

B 

* 

LDAB 

083D  BD  0910 

P 

JSR 

0840  BD  090A 

P 

* 

JSR 

0843  D6  0A 

B 

LDAB 

0845  4F 

CLRA 

0846  ?C  004D 

D 

INC 

0849  7C  0074 

D 

* 

INC 

084C  BD  0910 

P 

* 

JSR 

084F  D6  0B 

B 

LDAB 

0851  4F 

CLRA 

0852  BD  0910 

P 

JSR 

0855  ?F  004D 

D 

CLR 

0858  7F  0074 

D 

CLR 

085B  7E  0895 

P 

* 

JMP 

085E  CE  0005 

D  PNT1 

LDX 

0861  86  43 

A 

LDAA 

0863  A7  00 

A 

STAA 

0865  08 

I  NX 

0866  86  55 

A 

LDAA 

0868  A?  00 

A 

STAA 

086A  08 

I  NX 

086B  86  3A 

A 

LDAA 

086D  17  00 

A 

STAA 

086F  08 

* 

I  NX 

0870  7C  004F 

D 

INC 

0873  96  14 

B 

LDAA 

0875  D6  15 

B 

LDAB 

0877  BD  0910 

P 

JSR 

087 A  BD  090A 

P 

* 

JSR 

087D  D6  16 

B 

LDAB 

087F  4F 

CLRA 

0880  ?C  004D 

D 

INC 

0883  ?C  0074 

D 

INC 

0886  BD  0910 

P 

* 

JSR 

0889  D6  17 

B 

LDAB 

088B  4F 

CLRA 

088C  BD  0910 

P 

JSR 

038F  77  004D 

D 

CLR 

0892  7?  0074 

D 

* 

CLR 

0895  CE  0011 

D  PNT2 

LDX 

0898  86  50 

A 

LDAA 

089A  A7  00 

A 

STAA 

089C  08 

INX 

089D  86  42 

A 

LDAA 

0.1 


BUND  N  <*  90® 

CON BP  ZN  CONC.  PAL 

CONBF+1 

BINTOA 

D1CPT 

CONBF+2  #  AFTER  DEC  PT 


ZISUP  DON'T  SUPRESS  0'S 

BINTOA 

CONBF+3 

BINTOA 

ONES 

ZESUP 

PNT2 

#PRBUP+5 

#'C 

0.1 

#'U 

0,1 

#': 

0,1 


BUND 

CONBF+1 2  CU 
CONBF+13 
BINTOA 
DICPT 

CONBF+14 

ONES 

ZESUP 

BINTOA 

C0NBF+15 

BINTOA 

ONES 

ZESUP 

#PRBUF+17 

#'P 

0.X 
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•25  COMP  ***  P1T1  COMPUTING  ROUTINE 


0897  17  00  i 
0811  06 

0812  86  31  1 
0814  17  00  i 
0816  08 

5  Til 

INI 
LP11 
ST11 
I  NX 

0*1 

0,1 

0817  96  10  8 
0819  D6  11  B 
0818  BP  0910  p 
0811  BP  0901  p 

* 

LP11 

1PAB 

JSR 

JSB 

C0NB7+8 

C0NB7+9 

BINT01 

01CPT 

08B1  B6  12  B 

0823  4? 

08B4  7C  004D  D 

08B7  7C  0074  D 

08B1  BP  0910  P 

* 

LP1B 

CLRA 

INC 

INC 

JSS 

CONB7+10 

0N1S 

ZZSUP 

BINT01 

08BP  D6  13  B 

08BP  47 

08C0  BP  0910  p 

08C3  77  004P  P 

08C6  77  0074  D 

* 

10AB 

CL11 

JSR 

CIS 

CLR 

C0NB7+11 

BINTOi 

ONES 

ZESUP 

08C9  CE  0010  0 

08CC  86  43  1 

08CE  17  00  l 

0800  08 

0801  86  44  1 

0803  17  00  a 

0805  08 

0806  86  31  1 

0808  17  00  a 

0801  08 

* 

IPX 

1011 

STU 

I  NX 
1011 
ST11 

I  NX 
LP11 
ST11 
INI 

NPRBUP+29 

#'C 

0,1 

#'P 

0.1 

0.X 

08DB  96  0C  B 

0800  06  00  B 

0807  BO  0910  p 

0812  BO  0901  P 

0815  77  0047  P 

* 

1011 

1P1B 

JSB 

JSR 

CLR 

C0NB7+4  C 

C0NB7+5 

BINTOI 

PICPT 

bunp 

0818  06  01  B 

0811  47 

08EB  7C  0040  p 

0811  ?C  0074  0 

0871  BO  0910  ? 

$ 

L01B 

C1B1 

INC 

INC 

JSB 

C0NB7+6 

ONES 

ZESUP 

BINTOI 

0874  06  07  B 

0876  47 

0877  BO  0910  p 

0871  77  004P  0 

0870  77  0074  0 

* 

1P1B 

CLRA 

JSB 

C1R 

CLR 

C0NB7+7 

BINTOI 

ONES 

ZESUP 

* 

0900  CZ  0000  0 

0903  BP  0000  1 

0906  BP  0000  i 

0909  39 

IPX 

JSR 

JSR 

RTS 

#PRBU? 

PRINT1 

SUB3 

1  026  COMP  ***  DATA  COMPUTING  SOUTINE 

*** 

1  t 

'  1 

* 

*  PUT  A 
$ 

PECIMA1  POINT  IN  THE  CONCENTRATION 

090A  86  2E 

A  PECPT 

LPAA 

#'. 

090 C  A7  00 

A 

STAA 

0.X 

090S  08 

INI 

090F  39 

* 

STS 

* 

♦CONTEST  THE 

NUMBER  IN 

A  AND  B  TO  ASCII 

♦AND  PUT  IT 

IN  THE  MEMORT  THAT  IS  POINTED  TO  BT  X 

1 

0004 

B  DVQUO 

EQU 

MUL3 

! 

0002 

B  DTSEM 

EQU 

MUL2 

] 

0910  FF  002C 

P  BINTOA 

STX 

BINTP1 

| 

0913  B7  002E 

P 

STAA 

BINTP2 

0916  F7  002F 

P 

STAB 

BINTP2+1 

0919  FE  002E 

P 

IPX 

BINTP2 

091C  86  0A 

A 

LPAA 

#10 

091E  5F 

CLRB 

/DITIDE  BT  10 

-j 

091 F  BP  09EF 

P 

JSR 

PIT 

i 

0922  96  03 

B 

LPAA 

DTSEM+1 

/REMAINDER 

i 

0924  B7  0061 

D 

* 

STAA 

BIONES 

/ONES  DIGIT 

1 

0927  B6  004P 

p 

LPAA 

ONES 

092A  4P 

TSTA 

SX20 

1 

F  092B  27  06  0933 

BEO 

j 

092D  FE  00 2C 

p 

LPX 

BINTP1 

1 

0930  7E  0981 

P 

* 

JMP 

ONE1 

0933  PE  04 

B  SI 20 

LPX 

DTQUO 

0935  86  0A 

A 

LPAA 

#10 

0937  5F 

CLSB 

PIT 

0938  BP  09EF 

P 

JSR 

/REMAINDER 

|  093B  96  03 

B 

LPAA 

DTREM+1 

|  093P  B7  0060 

D 

* 

STAA 

BITENS 

/TENS  DIGIT 

.( 

I  0940  B6  004E 

p 

LPAA 

TENS 

P  0943  4P 

TSTA 

SX21 

1  0944  27  06  094C 

BEQ 

0946  FE  002C 

D 

LPX 

BINTP1 

1 

0949  7E  097C 

P 

* 

JMP 

TEN1 

094C  PE  04 

B  SE21 

LPX 

DTQUO 

.  094E  86  0A 

A 

LPAA 

#10 

1  0950  5F 

CLRB 

PIT 

H  0951  BP  09EF 

P 

JSR 

U  0954  96  03 

B 

LPAA 

DTREM+1 

/HUNDREDS  DIGIT 

|  0956  B7  005F 

P 

£ 

STAA 

BIHUND 

8  0959  B6  004F 

p 

LPAA 

HUNP 

F  095C  4P 

TSTA 

SX22 

095P  27  06  0965 

BEO 

[  095F  FE  002C 

D 

LPX 

BINTP1 

£  0962  ?E  0977 

P 

* 

JMP 

HUN1 

>  0965  PE  04 

B  SK22 

LPX 

DTQUO 

l  0967  86  0A 

1 

A 

LPAA 

#10 

p 

j 
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27  COMP  ***  Dm  COMPUTING  BOUTINS  *** 


0969 

5? 

CLRB 

0961 

BD 

09E? 

P 

JSR 

DIV 

096D 

96 

03 

B 

LD11 

DVREM+1 

096? 

B7 

005E 

D 

ST11 

B I THOU 

/THOUSANDS  DIGIT 

0972 

?E 

002C 

D 

LDX 

BINTP1 

0975 

8D 

10  0987 

BSR 

CVTDGT 

0977 

B6 

005? 

D 

HUN1 

LDA1 

BIHUND 

0971 

8D 

0B  0987 

BSR 

CVTDGT 

097 C 

B6 

0060 

D 

TEN1 

LD11 

BITENS 

097P 

8D 

06  0987 

BSR 

CVTDGT 

0981 

B6 

0061 

D 

0NE1 

LDAA 

BIONES 

0984 

8D 

01  0987 

BSR 

CVTDGT 

/ALWAYS  CONVERT  LAST  DIGIT 

0986 

39 

* 

RTS 

0987 

7D 

0074 

D 

CVTDGT 

TST 

ZESUP 

I?  SET:  DON'T 

0981 

26 

03  098? 

BNE 

CVTDG2 

SUPRESS  0'S 

098C 

4D 

TST1 

ZERO  SUPRESION 

098D 

27 

06  0995 

BEQ 

CVTDG1 

098F 

8B 

30 

1 

CVTDG2 

ADD! 

#$30 

/  MAKE  ASCII  # 

0991 

17 

00 

1 

ST11 

0,X 

0993 

08 

I  NX 

0994 

39 

RTS 

0995 

08 

CVTDG1 

INX 

0996 

39 

* 

RTS 

* 

♦MULTIPLY  TWO 

16  BIT 

SIGNED  NUMBERS  YIELDING  A  32 

♦NUMBER.  C1LL 

WITH* 

♦MULTIPLIER  IN  MUL1 

♦MULTIPLICAND 

IN  MUL3 

♦RETURN  WITH: 

♦PRODUCT  HIGH 

16  BITS 

IN  MUL2 

♦PRODUCT  LOW 
* 

* 

16  BITS 

IN  MUL3 

0997 

7? 

0062 

D 

* 

MUL 

CLR 

RET? 

0991 

DE 

04 

B 

LDX 

MUL3 

099C 

D? 

06 

B 

STX 

MUL4 

099E 

CE 

0004 

1 

LDX 

#4 

0911 

4? 

CLR  A 

0912 

17 

01 

B 

LP1 

STA1 

MUL1+1, 

X 

0914 

09 

DEX 

0915 

26 

FB  0912 

BNE 

LP1 

//CLEAR  WORKING  REGISTERS 

0917 

CE 

0010 

1 

LDX 

#16 

//SET  SHIFT  COUNT  TO  16 

0911 

96 

01 

B 

LP2 

LDA1 

MUL 1+1 

091C 

84 

01 

1 

AND1 

#1 

//GET  Y(LSBIT) 

0911 

16 

TIB 

//SAVE  Y(LSBIT)  IN  ACCB 

091? 

B8 

0062 

D 

EORA 

RET? 

//Y( LSBIT)=Y( LS BIT-1 )  ? 

09B2 

27 

ID  09D1 

BEQ 

SHIFT 

//YES:  GO  TO  SHIFT  ROUTINE 

09B4 

5D 

TSTB 

//NO:  DOES  Y (LSBIT '  *  0  ? 

09B5 

27 

0E  09C5 

BEQ 

ADD 

//YES:  GO  TO  ADD  ROUTINE 

09B7 

96 

03 

B 

LDA1 

MUL  2+1 

//NO:  SUBTRACT  MULTIPLICAN 

09B9 

D6 

02 

B 

LDAB 

MUL  2 

//FROM  THE  PRODUCT  WITH  TH 

09BB 

90 

07 

B 

SUBA 

MUL 4+1 

//MSBYTES  LINED  UP, 

09BD 

D2 

06 

B 

SBCB 

MUL4 

09B? 

97 

03 

B 

STA1 

MUL  2+1 

09C1 

D7 

02 

B 

STAB 

MUL  2 

COMP  ***  DATA  COMPUTING  ROUTINE  *** 


09C3 

20 

0C  09D1 

BRA 

SHIFT 

09C5  96 

03 

B  ADD 

LDAA 

MUL2+1 

09C7 

D6 

02 

B 

LDAB 

MUL2 

09C9 

9B 

07 

B 

ADDA 

MUL4+ 1 

09CB 

D9 

06 

B 

ADCB 

MUL4 

09CD 

97 

03 

B 

STAA 

MUL2+1 

09CF 

D7 

02 

B 

STAB 

MUL2 

09D1 

7F 

0062 

D  SHIFT 

CLR 

RETF 

09D4 

76 

0000 

B 

ROR 

MUL1 

09D7 

76 

0001 

B 

ROR 

MUL1+1 

09DA 

79 

0062 

D 

ROL 

RETF 

09DD 

77 

0002 

B 

ASR 

MUL2 

09E0 

76 

0003 

B 

ROR 

MUL2+1 

09E3 

76 

0004 

B 

ROR 

MUL3 

09E6 

76 

0005 

B 

ROR 

MUL3+1 

09E9 

09 

DEX 

09EA 

26 

BE  09AA 

BNE 

LP2 

09EC 

DE 

04 

B 

LDX 

MUL3 

09EE 

39 

RTS 

//THEN  GO  TO  SHIFT  ROUTINE 
//ADD  MULITPLICAND  TO  THE 
//PRODUCT  WITH  THE  MSBYTES 
//LINED  UP. 


//CLEAR  TEST  BITE 
//SHIFT  THE  MULTIPLIER  RIG 
//ONE  BIT  SHIFTING  THE  LSB 
//INTO  THE  LSBIT  OF  FF. 
//SHIFT  THE  PRODUCT  RIGHT 
//BIT,  THE  MSB  REMAINING  T 
//SAME. 

//DECREMENT  THE  SHIFT  COUN 
//IF  NOT  0  CONTINUE 
//RETURN  PRODUCT  LOWER  16 


♦DIF-CALL  WITH: 

*16  BIT  DIVIDEND  IN  X 

*16  BIT  DIVISOR  IN  A(LOW)  AND  B(HIGH) 

* 

*  DDI V  -  DOUBLE  DIVIDE  -  CALL  WITH: 

*  32  BIT  DIVIDEND  IN  DIV2  AND  DIV3 

*  DIVISOR  LOW  IN  A  REG 

*  DIVISOR  HI  IN  B  REG 

* 

* 

♦RETURNS : 

*  16  BIT  QUOTIENT  IN  DIV3 

*  16  BIT  REMAINDER  IN  DIV2 
****************************** 


09EF 

09F1 

09F4 

09F6 

09F8 

09FB 

09FE 

0A00 

0A03 

0A05 

0A07 

0A0A 

0A0C 

0A0E 

0A10 

0A13 

0A16 

0A17 

0A19 

0A1B 

0A1D 

0A1F 

0A20 

0A22 


8D  63  0A54 
7F  0062  D 
97  01  B 
D7  00  B 
7F  0063  D 
7D  0000  B 
2A  07  0A07 
CE  0001  B 
C6  02  A 
8D  69  0A70 
7D  0002  B 
2A  04  0A10 
C6  04  A 
8D  SD  0A6D 
BD  0A8F  P 
CE  0011  A 
5F 

96  00  B 
91  02  B 
27  62  0A7F 
22  0D  0A2C 
5C 

96  03  B 
90  01  B 


DIV  BSR  STOPDS  //DIVIDEND  LOW 

DDIV  CLR  RETF  //RETURN  QUOTIENT 

LD9  STAA  DIV1+1  //DIVISOR  LOW 

STAB  DIV1  //DIVISOR  HIGH 

CLR  SIGN  //FLAG  FOR  SIGN  OF  RESULTS 

1ST  DIV1  //DIVISOR  SIGN 

BPL  LD1  //ITS  POSITIVE 

LDX  NDIVl+l  //LOW  BYTE  OF  DIVISOR 

LDAB  #2  //TWO  BYTES  LONG 

BSR  COMP  //MAKE  IT  POSITIVE 

LD1  TST  DIV2  //SIGN  OF  DIVIDEND 

BPL  L5 

LDAB  #4  //4  BYTES  LONG 

BSR  COMPF  //MAKE  IT  POSITIVE 

L5  JSR  OVFTST  //TEST  FOR  OVERFLOW 

LDX  #17  //#  TIMES  THRU  MAIN  LOOP 

L0  CLRB  //QUOTIENT  BIT  IN  B 

LDAA  DIV1  //DIVISOR  UPPER 

CMPA  DIV2  //DIVIDEND  HIGH  UPPER 

BEQ  L2  //EQUAL-TEST  LOWER  BYTE 

BHI  LI  //DIVISOR  >  DIVIDEND 

L3  INCB  //DIVISOR  <»  DIVIDEND 

LDAA  DIV2+1  //DIVIDEND  HIGH  LOWER 

SUBA  DIV1+1  //DIVISOR  LOWER 
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029  COMP  ***  DATA  COMPUTING  ROUT INI  ♦** 


0A24 

97 

03 

B 

STAA 

DIV2+1 

0A26 

96 

02 

B 

LDAA 

DIV2 

//DIVIDEND  HIGH  UPPFR 

0A28 

92 

00 

B 

SBCA 

DI¥1 

//DIVISOR  UPPER 

0A2A 

97 

02 

B 

STAA 

DIV2 

0A2C 

8C 

0001 

A 

LI 

CPX 

#1 

//LAST  TIME  THRU 

0A2f 

27 

56  0A87 

BEQ 

L7 

0A31 

8D 

6?  0AA2 

BSR 

STSHF 

//SHIFT  DIVIDEND  LEFT 

ONE 

0A33 

79 

0003 

B 

ROL 

DIV2+1 

0A36 

79 

0002 

B 

ROL 

DI72 

0A39 

DA 

05 

B 

L6 

ORAB 

DIV3+1 

//PUT  IN  QUOTIENT  PIT 

0A3B 

D7 

05 

B 

STAB 

DIV3+1 

0A3D 

09 

DEX 

0A3E 

26 

D6  0A16 

BNE 

L0 

//DO  LOOP  17  TIMES 

0A40 

86 

01 

A 

LDAA 

#1 

0A42 

B4 

0063 

D 

ANDA 

SIGN 

//MAY  NEED  TO  COMPLEMENT  R 

0A45 

27 

04  0A4B 

BEQ 

L8 

0A47 

C6 

02 

A 

LDAB 

#2 

0A49 

8D 

22  0A6D 

BSR 

COMP? 

//COMPLEMENT  QUOTIENT 

0A4B 

7D 

0062 

D 

L8 

TST 

RETF 

//RETURN  FLAG 

0A4E 

27 

3B  0A8B 

BEQ 

L4 

//RETURN  QUOTIENT 

0A50 

DE 

02 

B 

LDX 

DIV2 

//RETURN  REMAINDER 

0A52 

0C 

CLC 

//NO  OVERFLOW 

0A53 

39 

RTS 

0A54 

DP 

04 

B 

STOPDS 

STX 

DIV3 

//DIVIDEND  LOW 

0A56 

CE 

0000 

A 

LDX 

#0 

0A59 

7D 

0004 

B 

TST 

DI¥3 

//SIGN  BIT 

0A5C 

2A 

01  0A5P 

BPL 

STOPl 

//ITS  POSITIVE 

0A5E 

09 

DEX 

//UPPER  WORD  IS  ALL  ONES 

0A5F 

DP 

02 

B 

STOP1 

STX 

DIV2 

//DIVIDEND  HIGH 

0A61 

39 

RTS 

0A62 

8D 

F0  0A54 

REM 

BSR 

STOPDS 

//STORE  OPERAND  IN  X 

0A64 

CE 

PPFP 

A 

LDX 

#$FFFF 

0A67 

PP 

0062 

D 

STX 

RETF 

//RETURN  REMAINDER 

0A6A 

7E 

09F4 

P 

JMP 

LD9 

0A6D 

CE 

0005 

B 

COMPF 

LDX 

NDIV3+1 

//DIVIDEND/QUOTIENT  LOWER 

0A70 

0C 

COMP 

CLC 

//COMPLEMENT  NUM  POINTED  T 

0A71 

86 

00 

A 

CML1 

LDAA 

#0 

0A73 

A2 

00 

A 

SBCA 

0,X 

//COMPLEMENT  BYTE 

0A75 

A7 

00 

A 

STAA 

0,X 

//STORE  IT  BACK 

0A77 

09 

DEX 

0A78 

5A 

DECB 

//BYTE  COUNTER 

0A79 

26 

F6  0A71 

BNE 

CML1 

0A7B 

7C 

0063 

D 

INC 

SIGN 

//CHANGED  ONE  ADDRESS 

0A7E 

39 

RTS 

0A7P 

96 

01 

B 

L2 

LDAA 

DIV1+1 

//DIVISOR  LOWER 

0A81 

91 

03 

B 

CMPA 

DIV2+1 

//DIVIDEND  HIGH  LOWER 

0A83 

22 

A7  0A2C 

BHI 

LI 

//QUOTIENT  BIT  IS  0 

0A85 

20 

98  0A1P 

BRA 

L3 

//QUOTIENT  BIT  IS  1 

0A87 

8D 

19  0AA2 

L7 

BSR 

STSHF 

//SHIFT  ONLY  QUOTIENT 

LAST 

0A89 

20 

AE  0A39 

BRA 

L6 

0A8B 

DE 

04 

B 

L4 

LDX 

DIV3 

//QOTIENT 

0A8D 

0C 

CLC 

//NO  OVERFLOW 

0A8I 

39 

RTS 

0A8P 

96 

02 

B 

OVFTST 

LDAA 

DIV2 

//DIVIDEND  HIGH  UPPER 

0A91 

91 

00 

B 

CMPA 

DIV1 

//DIVISOR  UPPER 

0A93 

2E 

09  0A9E 

BGT. 

OVFYES 

0A95 

2D 

06  0A9D 

BIT 

OVFNO 

0A97 

96 

01 

B 

LDAA 

DIV1+1 

//DIVISOR  LOWER 
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030  COMP  ♦**  DATA  COMPUTING  ROUTINE  *** 


0A99 

91  03 

B 

CMPA 

DIT2+1 

//DIVIDEND  HIGH  LOWER 

0A9B 

23  01  0A9E 

BLS 

OVFYES 

0A9D 

39 

OTFNO 

RTS 

0A9E 

32 

OWES 

PULA 

//REMOVE  OUR  RETURN  ADDR 

0A9F 

32 

PULA 

0AA0 

0D 

SEC 

//SET  OVERFLOW  FLAG 

0AA1 

39 

RTS 

//RETURN  TO  DIV  CALLER 

0AA2 

78  0005 

B 

STSHF 

ASL 

DIV3+1 

0AA5 

79  0004 

B 

ROL 

DIV3 

0AA8 

39 

RTS 

*  16  BIT  SIGNED  COMPARE  ROUTINE 

*  COMPARE  X  TO  A  (HGIH)  AND  B  (LOW) 

*  RETURN  (IN  B): 

*  -1  IF  X  <  AB 

*  0  IF  X  -  AB 

*  1  IF  X  >  AB 

* 


0AA9 

FF 

0030 

D 

CMP16 

STX 

TPC16 

//TEMP 

0AAC 

B1 

0030 

D 

CMPA 

TPC16 

//COMPARE  HIGH  BYTE 

0AAF 

2D 

0B 

0ABC 

BLT 

CMP1 

//  X  >  AB 

0AB1 

2E 

0C 

0ABF 

BGT 

CMM1 

//  X  <  AB 

0AB3 

FI 

0031 

D 

CMPB 

TPC16+1  //COMPARE  LOW  BITE 

0AB6 

22 

07 

0ABF 

BHI 

CMM1 

//  X  <  AB 

0AB8 

25 

02 

0ABC 

BCS 

CMP1 

//  X  >  AB 

0ABA 

5F 

CLRB 

//  X  »  AB 

0ABB 

39 

RTS 

//  X  >  AB 

0ABC 

C6 

01 

A 

CMP1 

LDAS 

#1 

0ABE 

39 

RTS 

0ABF 

C6 

FF 

A 

CMM1 

LDAB 

#$FF 

//  X  <  AB 

0AC1 

39 

* 

$ 

RTS 

* 

XREF 

VPRECT 

,CNTR2,DAYH,DAYL,HR,MIN 

XREF 

SEC,CNTRltDATA,YRF,YRL,BCDBIN 

XREF 

STCN1H 

, BLOCK , PR I NT1 , SUB3 , ZI NK 

XREF 

MES45 , 

MESERR.TDATA 

XDEF 

COMPT, 

loweco, hi eco, area, Sample 

XDEF 

CONBF  f 

MULl ,ERFLAG,TIMBUF,TMBUF 

* 

XDEF 

PRBUFt 

FPT  NO ,  LPT  NO,  CAS/ASF 

ERRORS  00000 


END 
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INDEX  TO  APPENDIX 
B 


SYSTEM  SCHEMATICS 


Drawing  No. 

Description 

Page 

CC-t 

Computer-to-Elapsed  Timer  Interface  Board 

139 

CC-2A&B 

LED  Display  of  Valve  Position  Circuits 

141 

CC-3A&B 

Valve  Manual  Override  Interface 

145 

CG4 

Computer-to-Valve  Relay  Interface 

149 

CC-5 

Low-Level-Sensor  Circuit 

151 

CC-6 

High-Low  Sensor  Display  Circuits 

153 

CC-7 

Fill-Empty  Pump  Circuit 

155 

CC-8 

Main  Pump  Controller  Circuit 

157 

CC-9 

Pump  Tach  Circuit 

159 

CC-10 

Valve  Relay  Circuit 

161 

CC-11A&B 

Real-Time  Clock  and  Keyboard  Interface 

163 

CC-12 

Real-Time  Clock  Circuit  and  LED  Display  Interface 

167 

CC-13 

Elapsed  Timer,  Temperature,  and  Depth  Meters  Interface 

169 

CC-14 

P.A.R.  Potentiostat  Back  Plane  and  Front  Panel 

171 

CC-15 

Front  Panel  I/O  (Switches) 

173 

CC-16 

Front  Panel  I/O  (Displays) 

175 

CC-17 

Valve  Manual  Override  -  Front  Panel  I/O 

177 

CC-18 

EPA-6800  CPU  Board 

179 

CC-19 

EPA-48  RAM/EPROM  Board 

181 
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